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SEQ 0001 



.REM & 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAME: 
DATE RELEASED; 
MAINTAINED: 



AC-A877C-MC 

CVDZACO D2V11 DIA6 PRT1 

17-FEB-82 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS D0CUMEN1 . 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY 0/WY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABTLi r; OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1977,1982 DIGITAL EQUIPMENT CORPORATION 
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1. ABSTRACT 

THE FUNCTION OF THE DZV! 1 DIAGNOSTICS IS TO VERIFY THE OPTION JPufiUES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT JHE DZV11 
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED, 

PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EITHER 'AUTO SIZING' OH 
INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOOO AT ST/ ^.T TIME. AU^O 
SIZING WILL BE DONE ONLY THE FIRST TIME THE PROGRAM IS STARTED AND 
SW07=0 AND SW00=0 AND SW03=0. THfc AUTOSIZEH IS DESIGNED TO DETECT 
DZV11 DEVICE ADDRESSES AND VECTORS ONLY, ALL REMAINING PARAMETERS WJ.L 
DEFAULT TO CERTAIN VALUES (SEE SEC.8.5). CONSOLE INPUT MAY BE CONTROLLED 
AT ANY START TIME THROUGH THE USE OF SM00,SWC3, SV(K, AND SW06 (SEE SEC, 
4.1.1 FOR A DETAILED DESCRIPTION OF THESE SWITCHES). 

CURRENTLY THERE ARE THREE STANDALONE DIAGNOSTICS <CVDZA,CVDZ8,AND IVDZC) 
ONE SVSTEM MODULE FOR DEC X/11 (CXDZBA), AND AN OVERLAY FOR HEP (CVDZD), 

? V 2?A TOGETHER WITH CVDZB WJLL TEST ALL LOGICAL FUNCTIONS OF THE DZV11 
INTERFACE MODULE. 

CVDZC IS DESIGNED AS A NON-CHA!NABLE STANDALONE DIAGNOSTIC PROVIDING THE 
OPERATOR WITH DIRECT CONTROL OVER THE TESTING OF ALL ^ZV11 EIA CABLES. 

* • • GPA * 

* NOTE: THIS DiAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXT11 (J8C 11/21) * 

* BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN * 

* IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS; * 

* * 

* LSI-11, 11/2, AND 11/23 SBC 11/21 * 

* „ t 

* CSR RANGE: 160010 TO 163770 174000 TO 177770 * 

* VECTOR RANGE: 300 TO 770 300 TO 370 * 

* AUTO-SIZING FOR... * 

* ...CSR AND VECTOR: ENABLED DISABLED * 

* * * GPA * 

2. REQUIREMENTS 

2.1 EQUIPMENT 

AN LS1 11 CPU WITH MINIMUM 4K OF MEMORY. 

ASR 33 (OR EQUIVALENT FOR CONSOLE) 

DZV11 INTERFACE MODULE 

H329 STAGGERED TURNAROUND CONNECTOR, 

H325 CABLE TURNAROUND CONNECTOR. 

N0TE: PARITY 6 LOGIC TURNAROUND C0NNECT0R IS NEEDED |N 0RDER T0 TEST THE 
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SEQ 0003 



2.2 



3. 
3,1 



STORAGE 

PROGRAM WILL USE ALL 4K OF MEMORY EXCEPT WHEAE A6L AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 1740 ARE ESPECIALLY TO BE NOTED AND TO PE 
UNTOUCHED BY OPERATOR AFTER PARAMETERS IW E BEEN INPUT FROM CONSOLE 
(SW00=1); OR AFTER THE 'AUTO SIZING' HAS BEFN DONE, THESE LOCATIONS 
MAY BE CHANGFD IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 
PARAMETERS ARE REQUIRED. 

LOADING PROCEEDURt 



METHOD 

ALL PROGRAMS ARE IN A8S0LUTE FORMAT AND t<RZ LOADED USING THE 
LOADER. NOTE: IF THF DIAGNOSTICS ARE ON A KLDIA SUCH 
.MAGTAPE. DECTAPE . CR CASSETTE; FOLLOW INSTRUCTIONS FOR THE 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 

MEMORY * SIZE 



ABSOLUTE 

AS DISK 

MONITOR 



4k 


17 


8K 


37 


12K 


57 


16K 


77 


20K 


117 


24K 


137 


28k 


157 



3.1.1 f ^ R J { AGNOST I C R I NTO S MEM0R ™ E ABS0LUTE L0ADER STARTJN G ADDRESS WILL LOAD 
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SEQ 0004 



4. 



STARTING PROCEEDURE 



4.1 



A. 



8. 



SET SWR TO kERO FOR 'AUTO SIZING 1 OR SET SW00=1 FOR USER PARAMETER 
INPUT FROM CONSOLE TERMINAL. NOTE: LOC. 000176 IS USED AS A SOFTWARE 
SWITCH REGISTER I hi ALL OF THE D2V11 DIAGNOSTICS. (SEE SEC. 4.1 ) 
ON THE FIRST STARTUP OF THE DIAGNOSTIC IF SW07=1 AND SWOO=0 THE 
PROGRAM WILL ASSUME THAT THE STATUS TABLE HAS SEEN ALREADY BUILT 
FROM A PREVIOUS DZV1 i DIAGNOSTIC RUN. NOTE: ANY DZV11 DIAGNOSTIC 
WILL OVERLAY THE STATUS TABLE WHEN LOADED TO PRESERVE ITS CONTENTS 
AND THUS WILL NOT ALTER A PREVIOUSLY BUILT TABLE. 

START THE DIAGNOSTIC AT LOC. 200(8). THE PROGRAM WILL TYPE MAINDEC 
AND PROGRAM NAMES (IF THIS WAS THE FIRST START UP OF THE PROGRAM) 
AND ALSO THE FOLLOWING: (ON THE FIRST PROGRAM RUN OR IF PARAMETERS 



•MAP 


OF 


DZVil STATUS 1 


1500 




16U100 


1502 




000300 


1504 




00001/ 


1506 




01 7 470 


1510 




000000 



THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS TABLE 
STARTING AT ADD. 1500 JN THE PROGRAM. THE STATUS TABLE MUST BE 
VERIFIED BY THE USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 
TAOLb SEE SECiION 8.4 FOR HE' P. 

THE PROGRAM WILL TYPE •'RUNNING AND PROCEED TO RUN THE DIAGNOSTIC. 
CONTROL SWITCH SETTINGS 

NOTE: THIS PROGRAM UTILIZES A SOFTWAhF SUIKH REGISTER WHICH MAY BE 
MODIFIED BY CHANGING LOC, 176 OR BY TYPING CONTROL "G" ( A G) ON 
THE CONSOLE TERMINAL WHILE THE PROGRAM IS RUNNING. 

HALT ON EAROtt 

LOOP ON CURRENT TEST 

INHIBIT ERROR PRINT OUT 

INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 

INHIBIT ITERATIONS. (Wi'K PASS) 

ESCAPE TO NEXT TEST 

LOOP WITH CURRENT DATA 

CATCH tRROR AND LOOP ON I T 

W i U I2 l UE i l J 1Sr START 0F ^OGRAM AFTER LOADING AND 

1[ SWOOfO THEN THE PROGRAM WILL ASSUME THAT THE STATUS MAP 

HAS BEEN BUILT FROM A PREVIOUS 0ZV11 DIAGNOSTIC RUN. 

RESELECT DZVII'S DESIRED ACTIVE 

RESERVED 

SELECT DELAY PARAMETER (SEC SEC. 4.1.1) 

EXTRA PARAMETER INPUT (SEE SEC. 4,1,1) 

LOCK ON SELECTED TEST 

RESTART PROGRAM AT SELECTED TES1 

GET USERS PARAMETERS FROM CONSOLE 



SW 15 


SET 


SW 14 


SET 


SW 13 


str 


SW 12 


SET 


SW 11 


SET 


SW 10 


SET 


SW 09 


SET 


SW 08 


SET 


SW 07 


SET 


SW 06 


SET 


s: 05 

SW 04 


SET 


SET 


SW 03 
SW 02 


SET 


SET 


SW 01 


SET 


sy oo 


SET 
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SEQ 0005 



4.1.1 SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 

SW 00 <}ET USERS PARAMETERS FROM CONSOLE. SETTING THIS SWITCH AT START 
UP TIME ALLOWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 
FOLLOWING PARAMETERS: BASE DEVICE ADDRESS, BASE VECTOR ADDRESS, 
MODE OF OPERATION (EXTERNAL, INTERNAL, OR STAGGERED), AND THE 
NUMBER OF D2V1VS THAT ARE RUNNING. USING THIS SWITCH ALONE WILL 
DEFAULT THE FOLLOWING PARAMETERS; ALL 4 LINES ARE SET TO BE 
TESTED ON EACH D2V11, THE DEFAULT BAUD RATE IS SET AT 19.2 KbAUD 
AND THE CHARACTER LENGTH FOR THE MAJORITY OF TESTING IS SET AT 
EIGHT BI T S PER CHARACTER WITH TWO S T 0P BITS. 

SW 03 EXTRA PARAMFTER INPUT. SETTING THIS SWITCH AT START UP TIME 
PROVIDES TMc USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 
TESTING AND TO ScT THE DEFAULT BAUD RATE USED FOR THE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 

SW 04 SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS 
DETERMINES THE LENGTH OF TIME THE PHOGRAM STALLS WAITING FOR A 
CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 
COlWi IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 
DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AA! LSI11 
WiTH MOS MEfiORY. WHEN RUNNING THIS PROGRAM ON A PROCESSOR 
WITH A FASTER MEMORY SPEED THIS DELAY COUNT SHOULD BE ADJUSTED 
PROPORTIONATELY HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 



2450 
1560 
1120 
0/50 
0660 
0330 
0150 
0060 
0040 
0030 
0020 
0010 
0001 
0001 
0001 
0001 



TIME FOR 

1IME FOR 

TIME FOR 

TIME FOR 

TIME FOR 

TIME FOR 

TIME FOR 

TIME FOR 



50 BAUD 
75 BAUD 
110 BAUD 
134 BAUD 
150 BAUD 
300 BAUD 
600 BAUD 
>00 BAUD 



TIME FOR 1800 BAUD 

TIME FOR 2000 BAUD 

TIME FOR 2400 BAUD 

TIME FOR 3600 BAUD 

TIME FOR 4800 BAUD 

TIME FOR 7200 BAUD 

TIME TOR 9600 BAUD 

TIME FOR 19.2 KBAUD 
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4.1.2 SWITCH REGISTER RESTRICTIONS 

SW 06 RESELECT DZV1TS DESIRED ACTIVE. A MESSAGE IS TYPED OUT ON THE 
CONSOLE TERMINAL ASKING TH r . OPERATOR TO TYPE A BIT MAP OF THE 
DZVS DESIRED ACTIVE. USING THIS SWITCH ALLOWS LOCATION D2VACTV 
TO 3E ALTERED (SEE SEC. 8.3 FOR A DESCRIPTION OF THIS LOCATION). 
EXAMPLE: 

IF THE DEVICES CORRESPONDING TO THE DZVU'S NUMBERED ZERO, TWO, 
AND FOUR IN THE DZV11 STATUS MAP (LOC. 1S00 THROUGH 1740) ARE TO 
BE TESTED, TYPE IHi 25 

THIS WILL SET BITS ZERO, TWO, AND FOUR IN LOCATION DZVACTV. ALL 
REMAINING DEVICES IN THE STATUS MAP WILL THEN NOT BE TESTED. 

SW 01 RESTART PROGRAM AT SELECTED TEST IT IS STRONGLY SUGGESTED 
THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE TRYING TO SELECT A 
TEST THAT IS NOT IN THE ORDER OF SEQUENCE THE REASON BEING IS 
THAT THE PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
NOTE: If RUNNING MULTIPLE DZV1TS; THE DZV11 YOU DESIRE TO BE 
UNDER TEST MUST BE SELECTED BY THE USE OF SW06 BEFORE LOCKING ON 
THE TEST IN OTHER WORDS; EACH TIME THE PROGRAM IS STARTED; 
JHE^FIRST DZV11 WILL BE SELECTED TO BE UNDER TEST UNLESS SW06 IS 
USED TO SELECT ONLY ONE. 

SW 09 LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF CALL 
'SCOPV IS IN THAT TEST, THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA, ONE PATTERN CAN'T BE SINGLED OUT. 
THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 
SHOOTER TO SAMPLF VARIOUS SIGNALS ON THE MODULE AND IS NOT mAKT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 

SW 04 SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
AS TOO SHORT A DELAY WILL CAUSE VALID TESTS TO FAIL. 
(SEE SEC. 4.1.1) 



SEQ 0006 



r 



ERROR 


SWITCHES 


1. 
2. 
3. 
4. 
5. 


SW 12 
SW 13 
SW 15 
SW 08 
SW 10 


SCOPE 


SWITCHES 
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A. 1.3 SWITCH REGISTER PRIORITIES 

DELETE PRINT OUT/BELL ON ERROR, 

DELETE ERROR PRINTOUT. 

H*LT ON THE ERROR. 

GO TO BEGINNING OF THE TEST(ON ERROR). 

GOTO NEXT TEST(ON ERROR). 

1. SW 09 (If ENABLED BY 'SCOPD. IF AN •*• IS PRINTED W FRONT OF 
THE TEST NO. ON AN ERROR REPORT (EX. *TEST NO, 10 ) SW09 IS 
INCORPORATED IN THAT TEST AND THEREFORE SU09 IS 'USUALLY* THE 
BEST SWITCH FOR THE SCOPE LOOP (SW14=0, SW10=0, SW09=1 , SW08=0) 
IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 
ISOLATE SIGNAL PROBLEMS ON THE D2V11 MODULE. 

IF SW09 IS NOT ENABELED; AND THERE IS A *HARD* ERROR 
(CONSTANT); SU08 IS BEST. 

2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SW01 AND 
SW02 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTED TEST, 
OR ELSE SET SW.4 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
SWK WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 
ERROR OCCURS. 

3. SW 14 LOOP ON CURRENT TEST. 

A. 2 STARTING ADDRESS 

SA 200 - THE STARTING ADDRESS FOR ANY DZV11 DIAGNOSTIC IS LOC. 200 

NOTE: If ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS UNDER 
ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER *ALL* 
AVAILABLE DZV11S ARE TESTED THE PROGRAM WILL RETURN TO •XXDP 1 OR 
■ACMV. 

5. OPERATING PROCEEDURE 

WHEN THE PROGRAM IS INITIALLY STARTED, MESSAGES AS DESCRIBED IN SECTION 
FOUR WILL BE PRINTED AND THE DIAGNOSTIC WILL BEGIN RUNNING. 
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5J NORMAL START OF DIAGNOSTIC 

ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200, IF SW00=1 
THEN THE FOLLOWING QUESTIONS ARE ASKED AND MUST BE ANSWERED: 

'1ST CSR ADDRESS (160000: ' 63770) : " 

YOU MUST TYPE IN ,p HE FIRST DZV11 CSR IN THE SYSTEM YOU WISH 
TESTING 10 BEGIN AT. RANGE: 160000:163770 

'1ST VECTOR ADDRESS (300:??0): " 

YOU MUST TYPE IN THE VECTOR OF THE FIRST DZV11 IN THE SYSTEM 
UNDER TEST. RANGE 300:770 

•MAINTENANCE MODli 

[EXTERNAL <HZr!5> (E)3 

[INTERNAL <DZCSR03=1XI)J 

[STAGGERED <H329> (S)J : 

VYPE "E" OR M I" OR "S" DEPENDING ON WHICH MODE YOU WISH TO RUN 
IN. IF RUNNING^ "EXTERNAL"; ALL SELECTED LINES MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR. 

"tf OF DZV1VS <IN OCTAL> (1:20): " 

TYPE TOTAL NUMBER OF DZV1VS TO BE TESTED IN THE SYSTEM. RANGE 
IS 1 THRU 20 IN OCTAL. 

********* If SW03=1 THEN THE FOLLOWING WIIL E: : PRINTED ********* 

"LINES ACTIVE BY BIT <1N OCTAL> (001:017):" 

EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
SELECTED (HOWEVER^ IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
SELECTED (0-1, 2-3). 

"DEFAULT BAUD RATE <1N OCTAL> (00:17): 

THIS GIVES THE USER A CHANCE TO CHANGE THE DEFAULT BAUD RATE 

ISSP., lf i« iffl* .59?. 0F , THE TEST - BAUD RATE CHOICES ARE: 
£9 J2 B^ 01 ' B 1 ( 7S BAUD),"02"( 110 BAUD),"03"( 134 BAUD), 
"04 ( 150 BAUD)/t)5 M ( 300 BAUD>,"06"( 600 BAUD) "07"( 1200 BAUD) 

XllM um'Wiim baud; -12"<?400 baud) "i3"(3600 baud 

14"(4800 BAUD) "15"<?200 DAUD)/16"(V600 BAUD)!"17"(19.2 KBAUD* 
LOW DEFAULT BAUD RATES ARC NOT SUGGESTED SINCE THEY LENGTHEN THE 
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 

IT IS IMPORTANT K NOTE THAT ALL DZV1VS IN THE SYSTEM MUST BE 
E9MIIK2S& ~£°? ; JTH M>*t$S AND VECTORS. ALSO ALL (HE EXTRA 
PARAM|TERS 9Itf E ^ Y iy A !" CSR AND VECTORS ARE GIVEN TO THE EXISTING 

it XlLtSQPS 0F OPERATION IS DIFFERENT FOR EACH DZV11 THIS MOST 
§1 PATCHED IN10 TH'.. CORRFCT STATUS MAP ENTRY WHICH IS PRINTED AT 
§IARL T %«tf! ALTERNATIVE IS TO PUT SW00=1 AT START TIME: 
ANSWER 3UEMI0NS ABOUT DZV11 UNDER TEST AND INDICATE ONE DZV1 

iKJ H 5r§JS T M; lfr} ii § TATUS fW> 1S T0 q e Hatched" it must be 

DONE AFTER THE QUE.'UIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 
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SEQ 0009 



5.2 PROGRAM AND/OR OPERATOR ACTION 

THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED IN THIS DIAGNOSTIC 
PACKAGE IS DESIGNED TC PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 

WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
THEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT, THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 

6. ERRORS 

AS DESCRI8ED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND ?C TYPED 
OUT AT THE TIMfc OF AN ERROR (PROVIDING SW 13=0 AND SW 12-0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE ThE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 

6.1 ERROR RECOVERY 

IF FOR SOME REASON THE DZV11 SHOULD 'HANG THE BUS 1 (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 
HAPPEN, LOOK IN LOCATION 'STSTNM' (ADDRESS 1246) FOR THE NUMBER OF THE 
TFST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 

WL T Hf 9EE R £I28 WILL HAV£ m IDEA AS T0 WHAT THE Mvn was doing at the 

TIME OF THE ERROR. 

7. RESTRICTIONS 

7.1 STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

THE STATUS TABLl SHOULD BE VERIFIED REGARDLESS OF HOW THE PROGRAM WAS 
STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH THE 
INFORMATION PRINTED ON THE TTY TO COMPLETELY ISOLATE PROBLEMS. 
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7.2 OPERATING RESTRICTIONS 

PARAMETER MUST BE INPUT FROM USER OR APT IF "AUTO SIZING" IS NOT USED. 

8. MISCELLANEOUS 
8.1 EXECUTION TIME 

ALL DZV11 DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS* MESSAGE (PROVIDING 
NO ERRORS v AND SW12=0) WITHIN 2 MIN. THIS IS ASSUMING SW11=1 (INHIBIT 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. 



8.2 PASS COMPLETE 



L 



NOTE: *EVERY* TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN AS IF 
SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO ^tRlfi NO *HARD* 
ERRORS' AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
PROGRAM IS STARTED- WILL BE A 'QUICK PASS' UNTIL ALL DZVU'S IN SYSTEM 
ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 

END PASS CVDZA-8 CSR: 160100 VEC: 300 PASSES: 000001 ERRORS: 000000 

.NOTE: W NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 
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SEQ 0011 



8.3 KEY LOCATIONS 
$LPADR (1252) 



NEXT (1362) 
STS7NM (1246) 
HUN (1412) 



STATUS MAP 
(1500)-<1740> 



DZVACTV(1406) 



CONTAINS THE ADDRESS 
ITERATION COUNT IS 
ASSERTED. 
CONTAINS THE 
CONTAINS THE 
THE BIT IN 
CURRENTLY 

1412/0000000001000000 
NOW RUNNING. 



WHERE PROGRAM WILL 
REACHED OR IF LOOP 



RETURN WHEN 
ON TEST IS 



ADDRESS OF THE NEXT TEST TO BE PEFORMED. 
NUMBER OF THE TEST NOW BEING PEFORMED. 
'RUN* ALWAYS POINTS ONE PAST THE DZV11 
BEING TESTED. EXAMPLE: (RUN) 
MEANS THAT DZV11 NO. 5 IS THE DZV11 



$BASE (1174) 



THESE LOCATIONS CONTAIN THE INFORMATION NEEDED TO TEST 
UP TO 16 (DECIMAL) DZV11S otuUENTIALY. THEY CONTAIN THE 
CSR,VECiOR AND STATUS CONCERNING THE CONFIGURATION OF 
EACH D2V1 1 . 

EACH BIT SET IN THIS LOCATION INDICATES THAT THE 
ASSOCIATED DZV11 WILL BE TESTED IN TURN. EXAMPLE: 
(DZVACTV) 1406/0000000000011111 MEANS THAT DZV11 NO, 

99fPA&MML^lU: 8E TESTED. EXAMPLE: (DZVACTV) 

1406/0000000000010001 MEANS THAT DZ11 NO. 00,04 WILL BE 

TESTED. 

CONTAINS THE RECEIVER CSR OF THE CURRENT DZV11 UNDER 

TEST. 
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SEQ 0012 



8.4 MORE ON THAT 'STATUS TABLE' (1500-1740) 



•MAP 


OF 


D2V11 STATUS 1 


1500 




160100 


1502 




000300 


1504 




000017 


1506 




017470 


1510 




000000 



THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 16 DZVU'S 
THE SYSTEMCTHESE WILL FOLLOW UNDER THIS TABLE). EXPLANATION: 
1500 160100 



IN 



1S02 
04 



000300 
000017 



506 017470 



1510 000000 



FOR THE FIRST DZV11 IN 
REPRESENTATION OF WHAT 



THE SYSTEM. 
LINES ARE 



TO 



THIS IS THE SYSTEM CONTROL REGISTER FOR THE 1ST DZV11 IN 

THE SYSTEM. 

THIS JS VECTOR 'A* 

THIS IS THE BINARY 

BE TESTED. 

THIS IS THE PARAMETER LOCATION USED IN MOST CF THE 

TESTS. IT INDICATES PARAMETERS OF: RX CN, SPEED SELECT 

17 (19. 2K BAUD) EIGHT BITS PER CHAR, AND TWO STOP BITS. 

THE USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE 

REMAINING PARAMETERS SHOULD BE LEFT ALONE. 

THIS LOCATION IS USED TO LOAD THE DZV11 LINE PARAMETER 

REGISTER >0R EACH LINE. (HE MEANING OF THE BITS SET IN 

THIS LOCATION IS ',HE SAME AS THE FUNCTION OF THE RELATED 

BITS IN THE DEVICE LINE PARAMETER REGISTER. 

THIS LOCATION WILL CONTAIN EITHER ALL ZEROS INDICATING 

THAT INTERNAL LOOP WAS SELECTED AS MODE OF OPERATION OR 

IT WILL CONTAIN 100000 INDICATING THAT "STAGGERED MODE" 

WAS SELECTED OR IT WILL CONTAIN C00200 INDICATING THAT 

"EXTERNAL*' WAS THE MODE SELECTED. 

THE ABOVE IS REPEATED FOR EACH DZV11 IN THE SYSTEM. THE TABLE IS 
FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETL/< INPUT PROGRAM 
AS DESCRIBFD PREVIOUSLY. ALSO IF DESIRED BY USER; THE 
LOCATIONS MAY BE ALTERED BY HAND TO SUIT THE SPECIFIC 
CONFIGURATION. 
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8.5 *** METHC C AUTO SIZING *** 

8.5.1 FINDING THE CONTROL STATUS REGISTER. 

THE PROGRAM WILL START AT ADDRESS 160000 AND START •REFERENCING' THE 
ADDRESS IN THE POINTER. IF A NON-EX MEMORY T*AP OCCURES, THE POINTER 
(HOLDING 160000) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 
ADDRESS 163770 IS REACHED. IF A 'BUS REPLY' RESPONSE WAS ISSUED ev THE 
DZV11 (OR ANY OTHER DEVICE) (NO NXM TRAP), "MASTER SCAN ENABLE" IS 
ATTEMPTED TO BE SET AND THE TCR BITS FOR ALL HOUR LINES ARE SET. "TRIY" 
IS THEN TESTED TO BE SET AND 'TOASTER SCAN ENABLE" IS TESTED TO BE STILL 
SET. THE DIAGNOSTIC WILL THEN CHECK THAT AT LEAST ONE TCR BIT IS SHLL 
SET. IF ALL OF THE ABOVE WORKED. THIS DEVICE IS ASSUMED TO BE A DZV11 
IF ANY OF THE ABOVE FAILED, UPDATING OF THE POINTER IS DONE AND THE 
SEQUENCE IS REPEATED. 

NOTE: IF THE PROGRAM DOES NOT FIND YOUR DZV11, SOMETHING IS WRONG AND 
AUTO SIZING SHOULD NOT BE DONE. u 4 « i* 

8.5.2 FINDING THE VflCTOR 

THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION IOT AND 
\+2' (NEXT ADDRESS). BITH AND 8IT5 (TX INTERUPT ENABLE AND MSTSCAN 
ENABLE) ARE SET INTO THi: D1VCSR. ALL TCR BITS ARE SET, A DELAY OCCURS. 
^JJ NO INTERUPT OCCURES (BECAUSE OF A BAD DZV11) THE PROGRAM ASSUMES 
VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. 
ONCE THE PROBLEM IS FIXED, THE PROGRAM SHOULD BE SETUP AGAIN TO SET THE 
^?2!L C ,Ly£ CT 2*- I F M INTERUH OCCURRED. THE ADDRESS TO WHICH THE DZV11 
INTERUPTED V) iS PICKED UP AND REPORTED AS THE VECTOR. DTE: IF THE 

HSVuHSHiMi S3! SPdSS™ SET UP 3Y vou ' THERE IS * PR08L£M AND 

8.5.3 PARAMETER ASSUMPTIONS. 

SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 
I^.»? A ?^II R § ; ™ E Pft °6ftAM MUST ASSUME THE REMAINING VARIATIONS. THE 
^ S ^L ] Ly°LI Y0UR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND. 
IN THIS WAY 952 OF THE PARAMETER SETUP WAS DOME BY THE PROGRAM AND 5% BY 

THEREFORE: 

1) ALL FOUR LINES ARE ASSUMED TO BE TESTS/). 

2) DEFAULT BAUD RATE IS SET TO 17 (19. 2 KB/,0). 

3) MODE OF OPERATION IS "INTERNAL MODF*\ 

FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION BA FOR GREATER DETAIL. 
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9,0 
9.1.1 



RUNNING THE DZV11 DIAGNOSTIC UNDER APT 

THE APT INTERFACE 

THE DZV DIAGNOSTICS HAVE BEEN DFSIGNED TO BE COMPATIBLE WITH THE APT 
(AUTOMATED PRODUCT TEST) SYSTEM. THE DZV LOGIC TEST DIAGNOSTICS (CVDZA, 
AND CVDZB) CAN BE RUN AS STANDALONE DIAGNOSTICS OR IN EITHER OF THE APT 
MODES. CVDZC, HOWEVER IS DESIGNED AS A STANDALONE DIAGNOSTIC ONLY AND 
REQUIRES DIRECT OPERATOR PARTICIPATION. 



9.1.2 SETTING UP THE DIAGNOSTIC USING APT 



THE DIAGNOSTIC 
MAI LBOX-E TABLE 1 . 


$SWREG 


-(1142) 


$VECT1 


-(1170) 


$BAr 


-(1174) 


$DEVM 


-(1176) 


$CDW1 


-(1200) 


$CDW2 


-(1202) 



USES SEVERAL VARIABLES IN THE REGION 
THESE VARIABLES ARE: 

USED AS THE SOFTWARE SWITCH REGISTER 
UNDER APT. 



SUBTITLED M APT 
WHILE RUNNING 



$DDWO -(1204) 



9.1.3 RUNNING UNDER APT 



USED TO SPECIFY THE FIRST VECTOR ADDRESS 

USED TO INDICATE BOTTOM ADDRESS OF DZV11 UNDER TEST 

A BIT MAP REPRESENTING WHICH DZV1VS WILL BE TESTED 

USED TO INDICATE WHICH LINES TO RUN ON AH DZV1VS 

USED TO INDICATE THE DEFAULT TEST MODE. SET TO FOR 
INTERNAL TESTING, 200 POR EXTERNAL LOOP BACK (H325 
INSTALLED)- OR SET TO 100000 FOR STAGGERED LOOP BACK 
TESTING (H329 tNSTALLED). 

EACH OF THE SDDW WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR DZV11, GOING UP TO 16 DZVU'S 



ALL OF THE VAR;A5LES MENTIONED T N SECTION 9.1.2 SHOULD BE 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT. 

NOTE 

BE SU*E S8ASE POINTS TO THE FIRST DZV11 BEFORE RUNNING 



SET 



8ASED ON THc^E VALUES, THE DIAGNOSTIC WILL SET UP THE STATUS 
TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 
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10.0 PROGRAM DESCRIPTION 

THIS PROGRAM WAS ASSEMQlED USiNG THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEMVDZQAC-C3). 

INITIAL ADDRESS OF THE STACK POINTER *** 1120-*** 

MISCELLANEOUS DEFINITIONS 

GENERAL PURPOSE REGISTER DEFINITIONS 

PRIORITY LEVEL DEFINITIONS 

"SWITCH REGISTER" SWITCH DEFINITIONS 

DATA BIT DEFINITIONS (BITOO TO BIT15) 

BASIC "CPU" TRAP VECTOR ADDRESSES 

BITS 15-11=CPU TYPE 

]]/04=0'J1/05=02J1/20=03J1AO=04 # n/45=05 

11/70=06, PDQ=07,Q*10 
BJ. 10-REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 

MEM, TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 

MEM. LAST ADDR.=3 3YTES,THIS WORD AND LOW OF "TYPE" ABO 

THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM. 

THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

™LiW; *!! Ari0N IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

N 2I£l J l F %1JEm IS ° THE 0NLY PERTINENT DATA IS ($ERRPC). 

N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 
DH 
DT 
DF 



POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 
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INCREMENT THE PASS NUM8ER (SPASS) 
IF THERES A MONITOR GO TO IT 
JF THERE ISN'T JUMP TO CYCLE 

THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

AND LOAD THE TEST NUMBER ($TSTNM) INTO THE DISPLAY REG- (DISPLAY<7:0» 

AND LOAD THE ERROR FLAG (SEKFLG) INTO DISPLAY<15:08> 

THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

SWH=1 LOOP ON TEST 

SW11=1 INHIBIT ITERATIONS 

CALL 

SCOPE ;;SC0PE=IOT 

ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE, 
THE ROUTINfc WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
NOTE!: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

CALL: 

1) USING A TRAP INSTRUCTION 

TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
OR 

TYPE 
MESADR 

ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 

U BIT? IN TH2 ENVIRONMENT MODE (SENVM) BYTE IS SET, 

THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 

ROUTINE USED TO "AUTO SIZE" THE DZV11 

CSR AND VECTOR. 

NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 

ADDRESS RANGE (160000:163770) 

AND THE VECTOR MAY BE ANY WHERE IN THE 

FLOATING VECTOR RANGE (300:770) 

************«*********/ TEST 1 ****************************** 
THIS TEST PROVES THE BUS REPLY RESPONSE 
DURING A READ OR V*IT* TO THE FOLLOWING ADDRESS: 
DZVCSS, DZVR3UF, DZVTCR, DZVMSR 

*****************>;* <** test 2 ****************************** 

THIS TEST PROVES THAT BIT "DCLR" 
CAN 8E SET AND THAT IT U!LL CLEAR 
BY ITSELF 



SEQ 0016 
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*********************** JEST 3 ****************************** 
TFS1 TO VFRIFY THAT THE R/W BITS OF THE 
DZVCSR REGISTER CAN BE SET. THEN VERIFY THAT 
THESE BITS CAN BE CLEARED. AND FINALLY, VERIFY 
THAT AFTER BEING SET AGAIN THEY CAN BE 
TLFARED BY A 'DEVICE CLEAR 1 *, 
HE BITS TESTED ARE: MAINf, MSENA8, SILOEN, 
RIE, AND TIE. 

*«v********************* TEST 4 ****************************** 

THIS TESTS THAT ALL OF THE TCR BITS 

CAN BE: SET, CLEARED, AND CLEARED BY ♦ DEVICE CLEAR. 

THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 

BE SET, CLEARED, AND CLEARED BY A RESET. 

*********************** TEST 5 ****************************** 

THIS TEST VERIFIES THAT 

BITS ,l RDONE,TRDY, BIT9, BIT8. 

AND SKOAL" ARE RcAD ONLY AND THAT TRDY IS 

ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 

*********************** TEST 6 ****************************** 

THIS TEST VERIFIES THAT: 

TIE, SILOEN, RIE, MSENAB, AND MAINT ARE THE 

ONLY R/W BITS IN THE DZVCSR AND THAT 

SETTING "DCLR" IN THE CSR WILL CLEAR THESE BITS. 

*********************** TEST 7 ****************************** 
THIS TEST PERFORMS RESET TESTING AND 
TESTING OF READ ONLY REGISTER DZVRBUF 
AND TESTING OF WRITE ONLY REGISTER DZVLPR 

*********************** TEST 10 ****************************** 

THIS TEST PERFORMS RESET TESTING AND 

TESTING OF READ ONLY REGISTER DZVMSR 

AND TESTING OF WRITE ONLY REGISTER DZVTDR 

*********************** TEST 11 ****************************** 

VERIFY THAT SETTING "DTR M FOR A LINE WILL 

BRING UP "CO" AND "RING" FOR: 

THE SAME LINE IF IN EXTERNAL MODE 

)HE STAGGCRED LINE IF IN STAGGERED MODE. 

LINES ARE STAGGERED AS FOLLOWS: 

LINEO WITH LINE1; LINE2 WITH LINE3. 

THIS TEST IS ONLY RUN IF AN H325,OR H329 

IS CONNECTED ON THE DZV UNDER TEST. 

*********************** TEST 12 ****************************** 
THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 
IS READY TO BE LOADED. AND THAT THE LINE SPECI- 
FIED IN BITS 8-9 OF DZVCSR CORRESPOND 
TO THE LINE SELECTED IN DZVTCR 
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*********************** TEST 13 ****************************** 

TEST TO TRANSMIT ONE CHAR AND 

RECEIVE ONE CHAR ON ONE LINE 

AT A TIME. THE CHAR IS "252" AND 

ALL SELECTED LINES WILL BE TURNED ON . 

THIS IS THE FIRST TIME ANY 

DATA IS CHECKED IN THE RECEIVER. 

USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 

WHICH TRANSMITS A STEADY STREAM OF CHARACTERS. 

*********************** jfST 14 ****************************** 

THIS TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 

DISABLED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 

TO ZERO FOR EACH LINE. 

THIS TEST ALSO VERIFIES THAT THE SILO CAN BE 

EMPTIED BY ISSUING A DEVICE MASTER CLEAR. 

*********************** TEST 15 ****************************** 

THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
(ONE LINE AT A TIME BASED UPON VALID LINES) 
THIS IS THE FIRST TIME THAT ALL DATA IS CHECKED 

********************a** TEST 16 ****************************** 
THIS TEST WILL PROVE THAT: 

1) THE TRANSPUTER 'BREAK PIT" WORKS 

2) THE RECEIVER CAN FLAG "FRAMING ERRORS" 

3) THE RECEIVER CAN FLAG 'PARITY ERRORS" 
ONLY ONE LINE AT A TIME WILL BE EXERCISED. 

*********************** JEST 17 ****************************** 

THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 
WHILE THE PROCESSOR STATUS DOES NOT ALLOW INTERRUPTS 
BUT WILL INTERRUPT IF THE PROCESSOR STATUS 
ALLOWS INTERRUPTS. 

*********************** JEST 20 ****************************** 

THIS TEST VERIFIES THAT THE RECEIVER WILL 

INTERRUPT BEFORE THE TRANSMITTER EVEN 

THOUGH THE TRANSMITTER WAS ENABLED 

FIRST. SET PS TO HIGH (MASK INTERRUPTS*; 

GET RDONE AND TRDY TO SET; 

SET TX IE AND RX IE; 

CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 
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3026 




3027 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 


000001 


(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




<1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




CD 




(2) 




<2> 




(2) 




(2) 


001120 


(2) 




(2) 




(2) 




(2) 




(2) 


000011 


(2) 


000012 


(2) 


000015 
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SEQ 0019 



;GPA PRGFRT A ?CVDZAB/<200>/F0UR LINE ASYNC MUX TESTS, PART 1 OF 2?,CVPZAB 

;GPA .hEADER <CVDZA-B>,<1977,1981> 

TITLE CVDZA-C 

•COPYRIGHT (C) 1977,1981 

•DIGITAL EQUIPMENT CORP. 

*MAYNARD, MASS. 01754 
* 

*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
•PACKAGE (MAINDEC-11-DZGAC-C5), JAN, 1981. 

§TN=1 

; STARTING PROCEDURE 

;LOAO PROGRAM 

;LOAD ADDRESS 000200 

;Pf{£SS START 

; PROGRAM WILL TYPE 

; M CVDZAC/<200>/FOUR LINE ASYNC MUX TESTS, PART 1 OF 2" 

; PROGRAM WILL TYPE * TUNNING" TO INDICATE THAT TESTING HAS STARTED 

;A1 THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

;ANO THEN RESUML TESTING 

.REM I 

/SWITCH REGISTER OPTIONS 



SW1 5=1 00000 
SW1 4=40000 
SW1 3=20000 
SW) 2=1 0000 
SW1 1=4000 
SW1 0=2000 
SW09=1000 
SW08=400 
SW07=200 
SW06=100 

SW05=40 

SW04=20 

SW03=10 

SW02=4 

SW01=2 

SW00=1 

iSBTTL BASIC 



=1,HALT ON ERROR 

=1,L00P ON CURRENT TEST 

=1, INHIBIT ERROR TYPEOUT 

=1. DELETE TYPEOUT/BELL ON ERROR. 

=1, INHIBIT ITERATIONS 

=1, ESCAPE TO NEXT TESi ON FftROR 

=1,L00P WITH CURRENT DATA 

= I, LOOP ON ERROR 

=1, DO "AUTO SIZING" ON INITAL START 'J?. 

-1, DESELECT SPECIFIC DEVICES 

NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 

=1, SELECT DELAY PARAMETER 

=1, SELECT SPECIFIC PARAMETERS 

=1, LOCK ON TEST SELECT 

=1, RESTART PROGRAM AT SELECTED TEST 

=1, SELECT DEVICE ADDRESS, VECTOR, ETC. 



DEFINITIONS 



.-•INITIAL ADDRESS OF THE STACK POINTER *•* 1120 *** 
STACK= 1120 

.EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EQUIV IOT, SCOPE ;;*ASIC DEFINITION OF SCOPE CALL 

; 'MISCELLANEOUS DEFINITIONS 

HJ= 11 ;;CODE FOR HORIZONTAL TAB 

LF= 12 ;;CODE FOR LINE FEED 

Cn- 15 ;;CODE FOR CARRIAGE RETURN 
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BASIC DEFINITIONS 



(Z) 


000200 


(2) 


177J76 


(2) 




(2) 


177774 


(2) 


177772 


(2) 


177570 


(2) 


177570 


(2) 




(2) 




(2) 


COOOOO 


(2) 


000001 


(2) 


000002 


(2) 


000003 


(2) 


000004 


(2) 


000005 


(2) 


000006 


(2) 


000007 


<2> 


000006 


(2) 


000007 


(2) 




(2) 




(2) 


000000 


(2) 


000040 


(2) 


000100 


(2) 


ooouo 


(2) 


000200 


(2) 


000240 


(2) 


000300 


(2) 


000340 


(2) 




(2) 




(2) 


100000 


(2) 


040000 


(2) 


020000 


(2) 


010000 


(2) 


004000 


(2) 


002000 


(2) 


001000 


<2) 


000400 


<2) 


000200 


(2) 


000100 


(2) 


000040 


(2) 


000020 


(2) 


000010 


(2) 


000004 


(2) 


000002 


(2) 


000001 


(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 




(2) 





CRLF= 

PS= 

.EQUIV 

STKLMT" 

PIRQ= 

D*WR= 

DDISP= 



200 

177776 

PS,PSW 

17?774 

M7772 

17757C 

177570 



H 2 



;;CODE FOR CARRIAGE RETURN-LINE FEED 
; ; PROCESSOR STATUS WORD 

;; STACK LIMIT REGISTER 

; .-PROGRAM INTERRUPT REQUEST REGISTER 

;; HARDWARE SWITCH REGISTER 

; HARDWARE DISPLAY REGISTER 



SEO 0020 



;*GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 



XO 
XI 
X2 
XI 
X4 
X5 
X6 
XI 
X6 
X7 



; GENERAL 
; GENERAL 
; GENERAL 
; GENERAL 
.•GENERAL 
.•GENERAL 
; GENERAL 
.•GENERAL 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



; STACK POINTER 
.•PROGRAM COUNTER 



.-♦PRIORITY LEVEL DEFINITIONS 



PRO= 
PR1 = 
PH2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 

;* M SWI 

SW15= 

SW14= 

SW13= 

SW12= 

SW11 = 

SW10= 

SW09= 

SW08= 

SW07= 

SW06= 

SW05= 

SW04= 

SW03= 

SW02= 

SW01r 

SW00= 

.EQUIV 

.EQUIV 

•EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

-EQUIV 

.EQUIV 

.EQUIV 





40 

100 

140 

200 

240 

300 

340 



.♦PRIORITY LEVEL 

.•PRIORITY LEVEL 1 

.•PRIORITY LEVEL 2 

.•PRIORITY LEVEL 3 

.•PRIORITY LEVEL 4 

.-PRIORITY LEVEL 5 

.-PRICttlTY LEVEL 6 

;PRIJRITY LEVEL 7 



TCH REGISTER" SWITCH DEFINITIONS 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

SW09.SW9 
SW08.SW8 
SW07.SW7 
SU06.SW6 
SU05.SU5 
SW04.SW4 
SW03.SW3 
SW02.SW2 
SW01.SW1 
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(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2/ 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
U00010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
000060 
000064 
000240 



005746 
005726 
010046 
012600 
0^4646 
0^2626 
000200 
000000 
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BASIC DEFINITIONS 

.EQUIV SW00,SW0 

;*DATA BIT DEFINITIONS (8IT00 TO 8IT15) 

BIT1 5= 100000 

BIT14= 40000 

BIT13= 20000 

BIT12= 10000 

BIT11= 4000 

BIT10= 2000 

BIT09= 1000 

BIT08* 400 

BIT07= 200 

BIT06* 100 

BIT05= 40 

BJT04= 20 

BIT03= 10 

B1T02= 4 

BIT01= 2 

BIT00= 1 

.EQUIV BIT09,BIT9 

.EQUIV BIT08-BIT8 

.EQUIV BIT07,BIT7 

.EQUIV BIT06,BIT6 

.EQUIV BIT05.BIT5 

.EQUIV BIT04,BIT4 

.EQUIV BIT03.BIT3 

.EQUIV BIT02.BIT2 

.EQUIV BIT0K81T1 

.EQUIV BIT00,8IT0 



SEQ 0021 



;*BASIC "CPU 
ERRVEC= 4 
RESVEC= 10 
TBJTVEC=14 
TRTVEC= 14 
8PTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVEC=34 
TKVEC* 60 
TPVEC= 64 
PIRGVEC=240 



M 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 

RESERVED AND ILLEGAL INSTRUCTIONS 

"T" BIT 

TRACE TRAP 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRAP (IOT) **SCOPE** 

POWER FAIL 

EMULATOR TKAP (EMT) **ERROR** 

r, TRAP M TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



.-INSTRUCTION DEFINITIONS 



PUSH1SP=5746 
POP1SP=5726 
PUSHR0=10Q46 
POPRQa 12600 
PUSH2SP*24646 
P0P2SP=22626 
MASK-8I T7 
CLEAR=0 



••DECREMENT PROCESSOR STACK 1 WORD 

.♦INCREMENT PROCESSOR STACK 1 WORD 

;SAVE RO CN STACK 

.•RESTORE RO FROM STACK 

.•DECREMENT STACK TWICE 

.•INCREMENT STACK TWICE 

;SET INTERRUPT MASK (INHIBIT FURTHER INTERRUPTS) 

;ALLOW INTERRUPTS (CLEAR PROCESSOR STATUS) 
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0CC010 
0J0020 
000040 
000100 
000200 
010000 
020000 
040000 
100000 



000000 
000400 
001000 
001400 



010000 
020000 
040000 
100000 



000000 
000400 
001000 
001400 



000000 
000001 
000002 
000003 

000000 
000010 
000020 
QQC030 
000040 
000050 
000060 
000070 
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GENERAL DEFINITIONS AND EQUIVALENCES 



SEQ 0022 



;DZV11 CONTROL 
;(DZVCSR) 



AND STATUS REGISTER DEFINITIONS 
BIT DEFiNITIONS 



MAINT = BIT3 

DCLR-8IT4 

MSENAB=B1T5 

RIE=8IT6 

RD0NE=8IT7 

SILCEN= BIT12 

SILOAL = BIT13 

TIE=8IT14 

TRDY=BIT15 



;MAINTENANCE MODE ENABLE 

:DEVICE CLEAR 

:MASTER SCAN ENABLE 

RECEIVER INTERRUPT ENABLE 

RECEIVER DONE 

iSILO ALARM ENABLE 

\SILO ALARri 

: TRANSMITTER INTERRUPT ENABLE 

: TRANSMITTER READY 



;f>ZVCSR WORD DEFINITIONS 



TLO=0 
TL1=BIT8 
TL2=BIT9 
TL3=8IT9J8IT8 



TRANSMIT LINE 

TRANSMIT LINE 1 

TRANSMIT LINc 2 

TRANSMIT LINE 3 



;DZVRBUF BIT DEFINITIONS 



PARER=8IT12 
FRMERR=BIT13 
0VRRUN=8JT14 
DVALID=3IT15 



PARITY ERROR 
FRAME ERROR 
OVERRUN ERROR 
DATA VALID 



;DZVR8UF WORD DEFINITIONS 



RLO=0 
RLUBIT8 
RL?=8IT9 
RL3=8IT9iBIT8 



RECEIVER LINE 

RECEIVER LINE 1 

RECEIVER LINE 2 

RECEIVER LINE 3 



;DZVLPR WORD DEFINITIONS 



LPO=0 

LP1=BIT0 

LP2»BIT1 

lp5=8iti »8ito 

FIVE=0 

SIX=8JT3 

SEVEN=6IT4 

EIGHT=8IT4.'BIT3 

FIVES^8IT5 

SIXS=8IT5!BIT3 

SEVENS=BIT5!8JT4 



;LINE PARAMETER 

;LJNE PARAMETER 1 

;LINE PARAMETER 2 

;LINE PARAMETER 3 

;fin BITS/CHARJ STOP BIT 
;S1X BITS/CHAR, 1 STOP BIT 
;SEVEN BITS/CHARJ STOP BIT 
;EIGHT BITS/CHARJ STOP BIT 
:Fin BITS/CHAR.2 STOP BiTS 
:S1X BITS/CHAR, 2 STOP BITS 
;SEVEN BITS/CHAR, 2 



EIGHTS-8IT5I8IT4J8IT3 ;EIGHT BITS/CHAR, 



STO" 
STOP 



BITS 
BITS 
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000100 
000200 
000000 
000040 
000000 
010000 

000000 
000400 
001000 
001400 
002000 
002400 
003000 
003400 
004000 
004400 
005000 
005400 
006000 
006400 
007000 
007400 



000001 
000002 
000004 
000010 
000400 
001000 
002000 
004000 



000001 
000002 
000004 
000010 
000400 
001000 
0020C0 
004000 



000400 
001000 
002000 
004000 
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GENERAL DEFINITIONS AND EQUIVALENCES 



SEJ C023 



PARITY=BIT6 






;PARITY ENABLED 


0DDPAR=BIT7 






;ODD PARITY ENABLED 


ONESTOP=0 






;0NE STOP BIT ENABLED 


TU0STOP=6IT5 




;TWO STOP BITS ENABLED 


EVEPAR=0 






;EVEN PARITY ENA8LFD 


RCV0N=BIT12 






;ENABLE RECEIVER (RECEIVER ON) 


S50=0 






; SPEED 50 BAUD 


S75=BIT8 






; SPEED 75 BAUD 


S110=8IT9 






; SPEED 1?n BAUD 


S134=BIT9!8IT8 




;SPEED 134.5 BAUD 


S150=BIT10 






; SPEED 150 BAUD 


S300=BlT10i8IT8 




; SPEED 300 BAUD 


S600=BIT10I3IT9 




: SPEED 600 BAUD 


S1 200=BI no J 


BIT918J 


TB 


; SPEED 1200 BAUD 


S1800=BIT11 






; SPEED 1800 BAUD 


S2000=BIT11J 


BIT8 




; SPEED 2000 BAUD 


S2400=BIT11j 


81 T9 




jSrEED 2400 BAUD 


S3600=BIT11J 


8IT918IT8 


; SPEED 3600 BAUD 


S4800=8IT111 


8IT10 




; SPEED 4800 BAUD 


£7200=81 T11 J 


8IT10I8IT8 


! SPEED 7200 BAUD 


S9600=BIT11I 


BIT10JBIT9 


J SPEED 9600 BAUD 


Sl9200=BiT11 


■8IT10JBIT9!BIT8 ;SPEED 19200 BAUD 


;DZVTCR BIT 


DEFINITIONS 


TCR0=8IT6 




a 


'ENABLE TRANSMISSION ON LINE 


TCR1=BIT1 




1 


;ENABLE TRANSMISSION ON LINE 1 


TCR2=8IT2 




i 


'ENABLE TRANSMISSION ON LINE 2 


TCR3=8!T3 




i 


•ENABLE TRANSMISSION ON LINE 3 


DTR0=BIT8 




I 


•DmTA TERMINAL READY FOR LINE 


DTR1=BIT9 




i 


•DATA TERMINAL READY FOR LINE 1 


DTR2=8IT10 




i 


DATA TERMINAL READY FOR LINE 2 


DTR3=BIT11 




( 


DATA TERMINAL READY FOR LINE 3 


;DZVMSR BIT 


DEFINITIONS 


RINGO'BltO 






RING INDICATED ON LINE 


RING1=8IT1 






RING INDICATED ON LINE I 


RING2=BIT2 






RING INDICATED ON LINE 2 


RING3=BI T3 






RING INDICATED ON LINE 3 


CO0=8IT8 






CARRIER PRESENT ON LINE 


C01-8IT9 






CARRIER PRESENT ON LINE 1 


C02=8IT10 






CARRIER PRESENT ON LINE 2 


C03=BIT11 






CARRIER PRESENT ON LINE 3 


;DZVTDR BIT 


DEFINITIONS 


* 
BRK0=5IT8 






eREAK FOR LINE 


BRK1=8IT9 






BREAK FOR LINE 1 


8RK2=8IT10 






BREAK FCR LINE 2 


BRK3=BIT11 






BREAK FOR LINE 3 



L 2 
CVDZA-C MACY11 30GC1063) 10-AUG-81 11 :08 PAGE ?5-5 
CVDZAC.P11 10-AUG-81 10:55 GENERAL DEFINITIONS AND EQUIVALENCES 



TABLE OF LOOP AROUND FUNCTIONS (H325) 



S5Q 0024 



I 


A 


V 


A 


REC 


TRANS 


DATA 


DATA 


I 


A 


V 


A 


CO 


RTS 



I 

V 

RING 



DTR 



r 



[ 
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(1) 
(1) 
(?) 
(2) 
(3) 
(2) 
(2) 

:■> 

12) 
(2) 
(2) 
(2) 



( 

( 

( 

( 

( 

( 

( 

(2) 

(2) 

(2) 

(2) 



000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 



000174 
000176 

000200 



000000 



OOC020 
004404 
000200 
007414 
000340 
00652?. 
000340 
0063 V 
000340 



000040 

000046 
000046 004340 

000052 
000052 000000 

000040 



000174 
000000 

oooooo 

000200 
000137 



001000 
001000 005200 



002116 



053103 055104 



m p 

08 PAGE 25-6 

TRAPCATCHER FOR UNEXPECTED INTERRUPTS 

; :***************************** ****************** ********************* 

t ■■ww»w™»*»w«t»w»M»w»aMwii»i. »«m»miwjMMiiMaM m ■ — — — ■— — — — 

TRAPCATCHER FOR ILLEGAL INTERRUPTS 
THE STANDARD "TRAP CATCHER" IS PLACED 
BETWEEN ADDRESS TO ADDRESS 776. 
IT LOOKS LIKE M PC*2 HALT". 

; :********** ********************************************************** 

.=0 



SEQ 0025 



; STANDARD INTERRUPT VECTORS 



• =20 



.SCOPE 
MASK 
SPWRDN 
340 
TERROR 
:>40 

.TRPSRV 
340 
.S8TTL ACT11 HOOKS 



SCOPE LOOP HANDLER 

HANDLE AT PRIORITY 7 

POWER FAIL HANDLER 

SERVICE AT PRIORITY LEVEL 7 

ERROR HANDLER 

SERVICE AT PRIORITY LEVEL 7 

GENERAL HANDLER DISPATCH SERVICE 

SERVICE AT PRIORITY LEVEL 7 



;;******************** ******************************************* 

;HOOKS REQUIP.FD BY ACT'H 
$SVPC=. 



.=46 

SENDAD 
.=52 

.WORD 
.=$SVPC 



.=174 

DISPREG:0 
SWREG: 
.=200 

jmp 



;SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 



;SOFTWARE DISPLAY REGISTER FOR SWITCHLESS 1 1S 
;SOFTARE SWITCH REGISTER FOR SWITCHLESS IIS 



.START 



;G0 TO START OF PROGRAM 



.=1000 

MTITLE; .ASCIZ <200><12>/CVDZAC/<200>/F0UR LINE ASYNC MUX TESTS, PART 1 OF 2/<200> 



r 
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PROGRAM PARAMETERS, 



N 2 
VARIABLES, AND TRAP CALLS. 



SEQ 0026 



(3) 
(4) 
kA) 
(A) 
(5) 
(A) 
<A> 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 

(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 
(A) 



001120 



001120 
001120 
001122 
001 12A 
001126 
001130 
001132 
001 13A 
001136 
001 1A0 
001140 
001 1A1 
001 1A2 
001 1AA 
001 1A6 



001150 
001151 



001 15A 
00.135 
001156 
001 ?60 
001i61 
001162 
001 i6A 
001165 
001166 
001170 
001172 
001 17A 
001176 
001200 
001202 
001 20A 
001206 
001210 
001212 
00121A 
001216 



000000 
000000 
000000 
000000 
000000 
000000 
./00000 
000000 

000 

000 

000000 

000000 

000000 



000 
000 



001152 000000 



000 
000 

000000 
000 
000 

000000 

000 
OOOOQO 
000300 
000000 
160010 
000001 
000017 

000000 
C17A70 
017A70 
017A70 
017A70 
017A70 
017A70 



.=1120 

; ;************************ ****.<** ******************** * *********** 

.SBTTL APT MAI LBOX-E TABLE 



;APT MAILBOX 
;MESSAGE TVPE CODE 
; FATAL ERROR NUMBER 
;TEST NUMBER 
;PASS COUNT 
;DEVICE COUNT 
.♦I/O UNIT NUMBER 
;MESSAGE ADDRESS 
.-MESSAGE LENGTH 
;APT ENVIRONMENT TABLE 
♦♦ENVIRONMENT BYTE 
ENVIRONMENT MODE BITS 
;APT SWITCH REGISTER 
;USER SWITCHES 
;CPU TYPE, OPT f ONS 
BITS 15-11=CPU UPE 

jV0A=01, 11/05=02, 1;/20=03J1/A0=OA, 11/45=05 

11/70=06,PDQ=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS,M.S. BYTE 
;;MEM. TYPE.BLM1 
MEM. TYPE BYTE -< (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
;;HIGH ADDRESS,BLK#1 
MEM. LAST ADDR.-3 BYTES, THIS WORD AND LOW OF 'TYPE" ABOVE 
;HIGH ADDRESSES. BYTE 
;MEM.TYPE,BLK#2 
,-MEK.LAST ADDRESS, BLK#2 
;HIGH ADDRESS f M.S.BYTE 
;MEM.TYPE,BLK#3 
;MEM,LAST ADDRESS. BLMtf 
;HIGH ADDRESS.M.S.BYTE 
; MEM. TYPE, BLK#4 
;MEM.LAST ADDRESS f BLK#4 
INTERRUPT VECT0R#1.8US PRI0RITY#1 
INTERRUPT VECTOR028US PRIORI TY*2 
;9ASE ADDRESS OF EQUIPMENT UNDER TEST 
;DEVICE MAP 

••CONTROLLER DESCRIPTION W(MD#1 
; CONTROLLER DESCRIPTION W0RD*2 
;DEVICE DESCRIP T OR WOWfO 

W0RD#1 
W0RDJ2 
WORD'5 
U0RD#4 
W0RD#5 



;;******************** 


.EVEN 






$MAIL: 






SMSGTY 


: .WORD 


AMSGTY 


$FATAL 


: .WORD 


AFATAL 


STESTN 


: .WORD 


ATESTN 


$PASS: 


.WORD 


APASS 


SDEVCT 


: .WORD 


ADEVCT 


$UNIT: 


.WORD 


AUWIT 


SMSGAD 


: .WORD 


AMSGAD 


SMSGLG 


: .WORD 


AMSGLG 


SETAftLE: 




$ENV: 


,tfYTE 


AENV 


$ENVM: 


.BYTE 


AENVM 


SSWREG 


: .WORD 


ASWREG 


$USWR: 


.WORD 


AUSWR 


SCPUUP 

;* 
;* 
;* 


: .WORD 


ACPUOP 


;* 
;* 

;* 
$MAMS1 


t .BYTE 


AMAMS1 


SMTYP1 

;* 
;* 


• .BYTE 


AMTYP1 


;* 

iMADRl 


' .WORD 


AMADR1 


iMAMS2 


■ .BYTE 


AMAMS2 


$mtyp2 


' .BYTE 


AMTYP2 


SMADR2 


.WORD 


AMADR2 


SMAMS3 


.BYTE 


AMAMS3 


$MTYP3 


.BYTE 


AMTYP3 


SMADR3, 


.WORD 


AMADR3 


SMAMS4 


.BY fE 


AMAMS4 


SMTYPA 


.BYTE 


AMTYP4 


*MADR4. 


WORD 


AMADR4 


SVECT1, 


.WORD 


AVECT1 


$VfcCT2< 


WORD 


AVECT2 


SBASE; 


.WORD 


ABASE 


$DEVM: 


.WORD 


ADEVM 


SCDW'f : 


.WORD 


ACDW1 


SCDW2: 


,WORr 


ACDW2 


$DDWt\* 


.WO r: 


ADDWO 


SDDM1 : 


.W 1, . 


ADDW1 


$DM2: 
SDDW.3: 


.W . , 


DDW2 


.WaR* 


/>DW3 


SDDW4: 


.Uii ■/ 


ADDW4 


SDDW5: 


.WORC 


ADDW5 



.•DEVICE 
; DEVICE 
.-DEVICE 
.-DEVICE 
;DEVICE 



DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
DESCRIPTOR 
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K) 

<4> 
<4) 
(4) 
(A) 
(A) 
(A) 
(A) 
<4; 
(4) 
(4) 
<4^ 
(4, 
(4) 



001220 
001222 
001224 
001226 
001230 
001232 
001234 
001236 
001240 
001242 



001244 



017470 
CI 7470 
01 r 470 
017470 
0V470 
017470 
017470 
017470 
017470 
017470 
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B 3 


APf MAIL80X-ETA8LE 




SDDW6: 


,WORD 


ADDW6 , 


;;LEVICE DESCRIPTOR W0RDJ6 
?;DEVIC£ DESCRIPTOR WORD*? 


SDDW7; 


.WORD 


ADDW7 ( 


$DDW8: 


♦ WCRD 


ADDW8 , 


■;DEVICE DESCRIPTOR WORDJR 


SDDW9: 


.WORD 


ADDW9 , 


•.•DEVICE DESCRIP10R W0RD#9 


SDDWIO. 


.WORD 


ADDW10 , 


-,'DEVICE DESCRIPTOR WORDflO 


SDDW11. 


.WORD 


A00W11 ( 


-.•DEVICE DESCRIPTOR W0RD*11 


SDDW12 


.WORD 


ADDW12 


• .-DEVICE DESCRIPTOR W0RD*1? 


SD0W13 


.WGrtD 


AD:W13 , 


.-DEVICE DESCRIPTOR W0RD*13 


$DDW14 


.WORD 


ADDW14 , 


'/DEVICE DESCRIP T OR W0RD*14 


$DDW15; 


.WORD 


ADDW15 , 


• .-DEVICE DESCRIPTOR WDHD^15 



SEQ 0027 



SETENDt 
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(3) 
(3) 
(4) 
(3) 
(3) 
(3) 

(3) 001244 

(3) 001244 

(3) 001246 

(D 001247 

(3) 001250 

(3) 001252 

(3) 001254 

(3) 001256 

(3) 001260 

(3) 001261 

(3) 001262 

(3) 001264 

(3) 001266 

(3) 001270 

(3) 001272 

(3) 001274 

(?) 001276 

(3) 001300 

(3) 001301 

(3) 001302 

(3) 001304 

(3) 001306 

(3) 001310 

(3) 001312 

(3) 001314 

(3) 001316 

(3) 001320 

(3) 001321 

(3) 001322 

(3) 001323 

(3) 001324 
(3) 

(5) 001326 

(5) 001330 

(5) 001332 

(5) 0C1334 

(5) 001336 

(5) 001 340 

(5) 001342 

(5) 001344 

(5) 001346 

(5) 001350 

(5) 001352 

(3) 001354 

(3) 001356 

(3) 001357 

<3) 001360 



000000 
000 
000 
000000 
000000 
000000 

oooooo 

000 
001 

oooooo 
oooooo 
ooooco 
ocoooo 
oooooo 
oooooo 
oooooo 

000 
000 

oooooo 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 

000 

OOOOOO 

OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

888888 

OOOOOO 

DOOOOO 
OCOOOO 
OOOOOO 

000012 
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COMMON TAGS 

.SBTTL COMMON TAGS 

;;***** *********************** '.ft********************************* 

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



S^Q 0028 



SCMTAG: 





.WORD 





$TSTNM: .BYTE 





SERFLG: .BYTE 





$ICNT 


: .WORD 





SLPADR: .WORD 





SLPERR: .WORD 





SERTTL: .WORD 





SITEMB: .BYTE 





$ERMAX: .BYTE 


1 


SERRPC: .WORD 





$GDADR: .WORD 





SBi)ADR: .WORD 





SGDDAT: .WORD 





S8DDAT: .WORD 







.WORD 







.WORD 





SAUTOB: .BYTE 





SINTAG: .BYTE 







.WORD 





SWR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DD1SP 


$TKS: 


177560 




$TKB: 


177562 




$TPS; 


177564 




$TPB: 


177566 




$NULL 


: .BYTE 





SFILLS: .BYTE 


2 


SFJLLC: .BYTE 


12 


STPFLG: .BYTE 





$REGAD: .WORD 





$REGO 


: .WORD 





SREG1 


• .WORD 





SRCG2 


: .WORD 





SREG3 


• .WORD 





SRE64 


• .WORD 





SREG5 


• .WORD 





STMPO 


* .WORD 


8 


STMP1. 


• .WORD 


STMP2. 


.WORD 


8 


STMPl 


• .WORD 


STMP4, 


• .UORD 





STJMEi 


>: 




SOUES. 


.ASCII 


ft/ 


tCRLF, 


• .ASCII 


<15> 


»LF: 


.ASCII 


<12> 



;;S1ART OF COMMON TAGS 



CONTAINS THE TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR FRRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OF 'GOOD* DATA 
CONTAINS ADDRESS OF 'BAD' DATA 
rONTAINS 'GOOD' DATA 
CONTAINS , BAD I DATA 
RESERVED— NOT TO BE USED 



.♦♦•AUTOMATIC MODE INDICATOR 
; ; INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOR FILLS 

CONTAINS # OF FILLER CHARACTERS REQUIRED 

INSERT FILL CHARS. AFTER A "LINE FEED" 

'TERMINAL AVAILABLE" FLAG (BIT<07>=0=:YES) 

CONTAINS THE ADDRESS FROM 

WHICH (SREGO) WAS OBTAINED 

CONTAINS (($REGAD)+5) 

CONTAINS <<$REGAD)+2) 

CONTAINS (<$REGAD)+4) 

CONTAINS <($REGAD)+6) 

CONTAINS <($REGAD)+IQ) 

CONTAINS (<$REGAD)+12) 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

USER DEFINED 

MAX. NUMBER OF ITERATIONS 

QUESTION MARK 

CARRIAGE RETURN 

LIN,* FEED 
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(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 001362 

<2) 

12) 

(2) 

(2) 

(2) 001362 000000 

(2) 001364 000000 

(2) 

(2) 

(2) 

(2) 

(2) 001366 000017 

(2) 001370 017470 

(2) 001372 000000 

(2) 0013/4 000000 

(2) 001376 000000 

(2) 001400 000000 

(2) 001402 000000 

(2) 001404 000000 

(2) 00*406 000001 

(2) 001410 000001 

(2) 0014'I2 0000C1 

(2) 001414 000001 

(2) 001415 001 

(2) 001416 000001 

(2) 001420 

(2) 001420 001500 



3 
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ERROR POINTER TA8LE 

.SBTTL ERROR POINTER TABLE 

;*THIS TA8LE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

.-♦LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;*N0TE1: IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

;*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

POINTS TO THE ERROR MESSAGE 
POINTS TO THE DATA HEADER 
POINTS TO THE DATA 
POINTS TO THE DATA FORMAT 



SEQ 0029 



;* 


EM 


;* 


DH 


;* 


DT 


;* 


DF 



SERRT8: 



NEXT: 
LOCK: 



;PROGRAM CONTROL PARAMETERS 



/PROGRAM VARIABLES 



LINE: 17 
PAR: 17470 
MODE: 
SAVLIN: 
XMTLIN: 
XMTCNT: 
REGIST: 
SAVPC: 
DZVACTVj.BLKW 
SAVACTV:.BLKW 



RUN: 

DZVNUM: 

SAVNUM: 

SAVNO: 

.EVEN 

ACTIVE: 



1 

.BLK8 
.BYTE 
.BLKB 



;ADDRESS (V M;'\ iEST TO BE EXECUTED 
.•ADDRESS POR LUCK ON CURRENT TEST, TIGHT LOOP 



'DEFAl.-ir MX fOUft LINES RUNNING 

PARAKEU'jr.: H BITS/CHAR, 2 STOP BITS, 19200 BAUD,NO PARIT 
: DEFAULT MAINTENANCE MODE 
:LINt Wet* 

: TRANSMISSION LINE NU«ER 
:COUN' c: Ui MS IN A TRANSMISSION PATTERN 
:DEVHE x.-ntSS STORAGE LOCATION 
PROuRW . v.WTER STORAGE 
:*DZV1VS jafc'CTED ACTIVE. 
:*A Bi; HP >jf DZVH'S IN THE SYSiFh 
'*r0UVTEK v:\ih PAST RUNNING DEVICE. 
*UCTAL rCU^ER OF DZVH'S IN THE SYSTEM 
♦WORKABLE I^WBER. 
*OCTAL NO.. O c DZVH'S BEING TESTED 



DZV.MAP 



;TABLF PaMTER. 
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(2) 
(2) 
(2. v 

<2:> 

(2) 001422 

(2) 001423 

(2) 001424 

(2) 001425 

(2) 

(2) 

(2) 001426 

(2) 001430 

(2) 001432 

(2) 001434 

<2) 001436 

(2) 001440 

(2) 001442 

(2) 001444 

(2) 001446 

(?) 

(2) 

(3) 

(2) 

(3) 

(2) 

(2> 

(2) 000024 

(2) 

(2) 000044 



11:08 PAGE 25-11 

ERROR POINTER TABLE 



,} 



SEQ 003O 



000 
000 
000 

000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



(2) 

(33 

(2) 

(2) 

(2) 

(2) 001446 

(2) 001446 

(2) 001450 

(2) 001452 

(2) 001454 



001446 
000W4 
000*00 
000044 
00K46 
001446 



(2) 
(2) 


00H56 
001160 


(1) 




(1) 




(1) 




(1) 




<D 


001500 


(3) 




(3) 


001500 


(3) 


001502 


(3) 


001504 
001506 
001510 


(3) 


(3) 


(3) 




(3) 


001512 


(3) 


001 5K 


(3) 


001516 



000000 
001120 
000120 
000024 
OOOCOO 
000052 



001500 



000001 

§00001 
00001 
00001 
000001 

000001 
000001 
000001 



PROGRAM INITIALIZATION FLAG 

PROGRAM INITIALIZATION FLAG FOR HEADER MAP 

MAINTENANCE ©IT SET FLAG 

TRANSMISSION COMPLETION FLAG 



.'PROGRAM CONTROL FLAGS 



INIFLG: .BYTE 

HDRFLG: .BYTE 

MNiFLG: .BYTE 

DONFLG: .BYTE 

.EVEN 

;DATA VARIABLES 

TDO: .WORD 

TD1: .WORD 

TD2: .WORD 

TD3: .WORD 

TRO: .WORD 

TR1: .WORD 

TR2: .WORD 

TR3: .WORD 

STOP: 

.SBTTL APT PARAMETER BLOCK 

;; ******************************** * ****************************** 

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

;;*************************************************************** 

.SX=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;.-FOR APT START UP 

.=44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR ;;POINT TO APT HEADER BLOCK 

♦ = .$X ;;RESET LOCATION COUNTER 

;;********************************* ****%s ****** ****************** 

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
/INTERFACE SPEC. 



>APTHD: 

SHIBTS: 

SMBADR: 

STSTM: 

SPASTM: 

SUNITM: 



.=1500 
DZV.MAP: 

DZCRQ: 

DZVCO: 

LINEO: 

PARO: 

MANTO: 

DZCR1; 
DZVC1: 
LINE1: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
DZV11 





SMAIL 

80. 

20. 

0. 



;TW0 HIGH BIT Of 18 BIT MAILBOX ADDR. 
;ADDRESS OF APT MAILBOX (BITS 0-15) 



;RUN TIM OF LONGEST TEST 

;RUN TIME IN SECS. OF 1ST PASS ON 1 UNI1 (QUICK VERIFY) 
2a ^{ADDITIONAL rlw HW (SECS) OF A PASS FOR EACH ADDITIONAL UN*T 
$ETEND-tAAlL/2 ;;LEWTH 1AIL80X-ETABLE (WORDS) 
STATUS TABLE AND ADDRESS ASSIGNMENTS 



.BIKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 



.-CONTROL STATUS REGISTER FOR DZV11 NUMBER 

.-RECEIVER AND BASE VICTOR FOR DZV11 NUMBER 

;ALL LINES SELECTED 

.-PARAMETERS 

.-MAINTENANCE MODE FOR THIS DEVICE 

.-CONTROL STATUS REGISTER FOR DZV11 NUMBER 1 
.-RECEIVER ANC BASF VECTOR FOR DZV11 NUMBER 1 
;ALL LINES SELECTED 
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APT PARAMETER BLOCK 



(3) 001520 

(3) 001522 

(3) 

(3) 001524 

(3) 001 c 26 

(3) 001530 

(3) 001532 

(3) 0C1534 

(3) 

(3) 001536 

(3) 001540 

(3) 001542 

(3) 001544 

(3) 001546 

(3) 

(3) 001550 

(3) 001552 

(3) 001554 

(3) 001556 

(3) 001560 

(3) 

(3) 001562 

(3) 001564 

(3) 001566 

(3) 001570 

<3> 001572 

(3) 

(3) 001574 

(3) 001576 

(3) 001600 

(3) 001602 

(3) 001604 

(3) 

(3) 001606 

<3> 001610 

(3) 001612 

(3) 001614 

(3) 001616 

(3) 

(3) 001620 

(3) 001622 

(3) 001624 

(3) 001626 

(3) 001630 

(3) 001632 

(3) 001634 

(3) 001636 

(3) 001640 

(3) 001642 

(3) 001644 
11646 
11 650 
.J1652 

(3) 001654 



000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
)001 
1001 

000001 
000001 
000001 
000001 
000001 





PARI: 
MANT1 

DZCR2 
DZVC2 
LINE2 
PAR2: 
MANT2 

DZCR3 
DZVC3 
LINE3 
PAR3: 
MANT3 

DZCR4 
DZVC4 
LINE4 
PAR4: 
MANT4 

DZCR5 
DZVC5 
LINE5 
PAR5: 
MANT5 

DZCR6 
DZVC6 
LINE6 
PAR6; 
MANT6 

0ZCR7 
DZVC7 
LINE7 
PAR7: 
MANT7 



DZCR1Q: 

DZVC10; 

LINE10: 

PAR10: 

MANT10: 

DZCR11: 

DZVC11: 

LINE11: 

PAR11: 

MANT11: 

DZCR12: 
DZVC12: 
LINE12: 
PARI 2 : 
MANT12; 



.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
8LKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
•BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.8LKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 



F 3 



PARAMC TRS 

MAINTENANCE MODE TOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 2 

RECEIVER AND SASfc VECTOR FOR DZV11 NUMBER 2 

ALL LINES SELECTED 

PARAMETER 

MAINTENANCE K0DE FOR THIS DEVICE 

CONTROL STATUS AGISTER FOR DZV11 NUMBER 3 

RECEIVE AND &A.SE VECTOR FOR DZV11 NUMBER 3 

ALL LINES SELECTED 

PARAMETERS 

MAINTENANCE MODE FOR THiS DEVICE 

COWOL STATUS REGISTER FOR DZV11 NUMBER 4 

RECEIVER AND &A. 4 .;r VECTOR FOR DZV11 NUMBER 4 

ALL LINES SELECTED 

PARAME V ER C 

MAINTENANCE MWE FOR THJS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 5 

RECEIVER ANH BASE VECTOR FOR DZV11 NUM8ER 5 

ALL LINES SELECTED 

PARAMETERS 

MAINTENANCE flODE FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 6 

RECEIVER AND 3AS£ VECTOR FOR DZV11 NUMBER 6 

ALL LINES SKLFCTEi> 

PARAMETERS 

MAINTENANCE MODt TOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 7 
RECEIVER A*D BASE VECTOR FOR DZV11 NUMBER 7 

all lines m.icrzt 

PARAMETERS 

MAINTENANCE HCDr ?0R THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 10 

RECEIVER AND ftASt" VECTOR FOR DZV11 NUMBER 10 

ALL LINES SELICTfc); 

PARAMETERS 

MAINTENANCE MOD? FOR THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 11 

RECEIVER AND ZhSE VECTOR FOR DZV11 NUMBER 11 

ALL LJNES SHCCTEp 

PARAMETERS 

MAINTENANCE MoDL : FC* THIS DEVICE 

CONTROL STATUS REGISTER FOR DZV11 NUMBER 12 

RECEIVER AND fUSt SECTOR FOR DZV11 NUMBER 12 

ALL LINES SELtCffT 

PARAMETERS 

MAINTENANCE MODE FOR THIS DEVICE 



SEQ 0031 
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APT PARAMETER BLOCK 



6 3 



(3) 

<3> 001656 

(3) 001660 

(3) 001662 

(3) 001 664 

<3) 001666 

(3) 

(3) 001670 

(3) 001672 

(3) 001674 

(3) 001676 

(3) 001700 

(3) 

(3) 001702 

(3) 001704 

(3) 001706 

(3) 001710 

(3) 001712 

<3) 

(3) 001714 

(3) 001716 

(3) 001720 

(3) 001722 

(3) 001724 

<3) 

(3) 001726 

(3) 00 i 730 

(3) 001732 

(3) 001734 

(3) 001736 

(1) 

(1) 001740 



000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

000001 
000001 
000001 
000001 
000001 

mm 



DZCR13: 
OZVC13: 
LINE13: 
PARI 3: 
MANT13: 

DZCR14: 
DZVC14: 
LINE14: 
PARK: 

MANT14: 

DZCR15: 
DZVC15: 
LINE15: 
PARI 5: 
MANT15: 

DZCR16: 
DZVC16: 
LINE16: 
PARI 6: 
MANT16: 

DZCR17: 
DZVC17: 
LINE17: 
PARI 7: 
MANT17: 

DZV.END: 



.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
•BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 

.BLKW 
.BLKW 
.BLKW 
,BLKW 
.BLKW 

.BLKW 
.BLKJ 
.BLKW 
.BLKW 
.BLKW 



SEQ 0032 



VLC1QR 



.-CONTROL STATUS RESU'TER 

.♦RECEIVER AND BASE 

;ALL LINES SELECTfj) 

PARAMETERS 

.-MAINTENANCE MODb ?M THIS DEVICE 



FOR DZV11 NUMBER 13 
FOR DZV11 NUM8ER 13 



.•CONTROL STATUS REGISTER FOR DZV1I NUMBER 14 

.-RECEIVER AND BASE VICTOR FOR DZV11 NUMBER 14 

;ALL LINES SELECTED 

•PARAMETERS 

•MAINTENANCE MODE FOR THIS DEVICE 

.•CONTROL STATUS REGISTER FOR DZV11 NUMBER 15 

;REZE1VER AND BASE VICTOR FOR DZV11 NUMBER 15 

;ALL LINES SELECTED 

.•PARAMETERS 

♦•MAINTENANCE MODE ?ttl THIS DEVICE 

; CONTROL STATUS RECITER FOR DZV11 NUMBER 16 

;RECEJV p R AND BASE VJCYOR FOR DZV11 NUMBER 16 

;ALL LINES SELECTOR 

.-PARAMETERS 

; MAINTENANCE MODS Fv.: THIS DEVICE 

.-CONTROL STATUS REGISTER FOR DZV11 NUMBER 17 

.-RECEIVER AND BASE VICTOR FOR DZV11 NUMBER 17 

;ALL LINES SELECTED 

; PARAMETERS 

.-MAINTENANCE MODE FOi> THIS DEVICE 



M7777 
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APT PARAMETER BLOCK 



H 3 



SEQ 0033 



( 

( 

( 

( 

( 

( 

( 

(3) 

(?) 

<3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(6) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2) 

(3) 

(2: 

(3) 
(2) 
(1) 
(1) 
(1) 



0017A2 

001742 
001744 
001746 
001750 
001752 
001754 
001756 
001760 
001762 
001764 
001766 
001770 
001772 
001774 
001776 
002000 
002002 
002004 
002006 



104400 
0C6410 
104401 
004650 
104402 
004674 
104403 
005514 
104404 
005620 
104405 
005640 
104406 
010252 
104407 
006040 
104410 
006100 
104411 
006132 
104412 
006136 
104413 
006336 
104414 
006370 
104415 
011256 
104416 
010372 
104417 
006356 
104420 
006422 
104421 
006440 
104422 
006500 



DEFINITIONS FOR TRAP SUBROUTINE CALKS 

.'POINTERS TO SUBROUTINES CAN BE FO;«D 

;IH THE TA8/E IMMEDIATELY FOLLOWING THE DEFINITIONS 

; :*********************************** ***** '*************************** 



.TRPTAB: 
ADVANCE=TRAP+0 

.ADVANCE 
SC0PI=TRAP+1 

.SC0P1 
TYPE=TRAP+2 

.TY*E 
INSTR=TRAP+3 

•INSTR 
INSTER=TRAP+4 

.INSTER 
PARAM=TRAP+5 

.PARAM 
SETFLG=TRAP+6 

.SETFLG 
SAV05=TRAP+7 

.SAV05 
RES05=TRAP+10 

.RES05 
C0NVRT=TRAP+11 

.CONVRT 
CNVRT=TRAP+12 

.CKVRT 
DEVICE. CLR=TRAP+1 3 

. DEVICE. CLR 
DELAY=TRAP+14 

.DELAY 
PARMD=TRAP+15 

.PARflD 
PAWCH=TRAP+16 

PAWCH 
DCLASM=TRAP+17 

.DCLASM 
SHIFP=TRAP+20 

.SHIFT 
LPRSET=TRAP*21 

APRSET 
BUFSE T=TRAP+22 

.BUFSET 



;CALL TO ADVANCE Tu NEXT TEST( OR SCOPE THIS ONE) 

;CALL TO LOOP OK C17WENT DATA HANDLER 

;CALL TO TELETYPE OUTPUT ROUTINE 

;CALL TO ASCII STRING INPUT ROUTINE 

;CALL TO INPUT ERROR HANDLER 

;CALL TO NUMeRITAL DATA INPUT ROUTINE 

;CALL TO SET FLAG ROUTINE 

;CALL TO REGISTER SAVE ROUTINE 

;CALL TO REGISTER RESTORE ROUTINE 

;CALL TO DATA OUTPUT ROUTINE 

; CALL TO DATA 0U7FJ1 ROUNTINE WITHOUT CR/LF. 

;CALL TO ISSUE A DEVICE CLEAR 
;CALL TO DELAY FOR FAST CPU'S 
; CONVERT DECIMAL STRING TO OCTAL 
;SET FLAG ECHO OR CABLE 
;CLEAR DEVICE, SET MAINT. BIT IF I MODE 
;CALL TO ROTATE LINE POINTER 
;CALL TO SbT UP LP* DEVICE REGISTER 
;CALL TO 7ER0 BUFFER AREA 



; :********************************** ******** ************************** 
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APT PARAMETER BLOCK 



(1) 
(1) 
(1) 
(1) 


002010 


160040 


<1) 


002012 


160041 


(1) 


002014 


160042 


V 1 / 


002016 


160043 


(1) 


002020 


160042 


(1) 


002022 


160043 


(1) 


00202A 


160044 


(1) 


002026 


160045 


(1) 


002030 


160046 


(1) 


002032 


160047 


(1) 


002034 


160046 


(1) 
(1) 
(1) 
(1) 
(1) 


002036 


160047 


00204J 


000300 


(1) 


002042 


000302 


(1) 


002044 


000304 


(1) 
(1) 
(1) 


002046 


000306 



;D2V11 VECTOR 
; WORKING AREA 



I 3 



AND REGISTER INDIRECT POINTERS 



SEQ 0034 



DZVCSR: 

HDZVCSR: 

DZVRBUF: 

HDZVRBUF 

DZVLPR: 

HDZVLPR: 

DZVTCR: 

HDZVTCR: 

DZVMSR: 

HDZVMSR: 

DZVTDR: 

HDZVTDR: 



160040 

160041 

160042 

: 160043 

16004? 

160043 

160044 

160045 

160046 

160047 

160046 

160047 



;R/W 
•R/W 

•READ ONLY 
;READ ONLY 
; WRITE ONLY 
;WRIT£ ONLY 
;R/W 
•R/W 

•READ ONLY 
;READ ONLY 
; WRITE ONLY 
;Mm ONLY 



;DEFAULT DZV VECTORS 

DZVRIV: 300 ;REC INTR VECTOR 

DZVRIS; 302 ;REC INTR STATUS 

DZVTIV: 304 ;XWT INTR VECTOR 

DZVTISi 306 ;XAUT INTR STATUS 
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APT PARAMETER BLOCK 



J 3 



SEQ 0035 



(1) 
(1) 
(1) 
(1) 

(1) 


002050 




(1) 


002050 


000000 


(1) 


002052 


000000 


(1) 


G02054 


000000 


m 


002056 


000000 


(1) 


002060 


000000 


(1) 


002062 


000000 


(1) 


002064 


000000 


(1) 


002066 


000000 


(1) 


002070 


000000 


(1) 


002072 


000000 


(1) 


002074 


000000 
000000 


(1) 


002076 


(1) 


002100 


000000 


(1) 


002102 


000000 


(1) 


002104 


000000 


(1) 


002106 


000000 


(1) 


002110 


000000 


(1) 


002112 


000000 


(1) 


002114 


000000 



,-TJME TABLE FOft RELATIVE TJ»V G TESTS 



TMTBL; 

T50: 

T75: 

T110 

T134 
T150 

T300 

T600 

TUOO 

T1800 

T2000 

T2400 

T3600 

T4800 

T7200 

T9600 

TEJGHT:0 

TSEVEN: 

TSJX: 

TFlWi 
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PROGRAM INITIALIZATION 



K 3 

AND START UP. 



SEQ 0036 



002116 
002116 
002120 
002124 
002130 
002136 
002144 
002152 
002156 
002162 
002170 
002176 
002202 
002206 
002212 



002220 
002226 
002234 
00224 3 
002242 
002246 
002254 
002254 
002260 
002262 
002270 
002272 
002276 
002302 
002306 
002310 
002314 
002320 
002324 
002326 
002332 
002336 
002342 
OC2350 
002352 
002356 
002362 
002366 
002370 
002374 
002376 



000005 
012706 
106427 
012737 
012737 
012737 
005037 
105037 
012737 
012737 
005037 
005037 
005037 
012737 



012737 
012737 
004737 
001405 
004737 
042737 

105737 
001010 
02372? 
001402 
104402 
105337 
105737 
100004 
004737 
000137 
005737 
001404 
004737 
000137 
004737 
032777 

m 

012700 
105037 
005020 

105337 



001120 
000200 
007414 
006522 
000340 
001126 
001247 
001500 
000001 
001256 
001262 
001246 
002116 



000176 
000174 
017342 

000570 
000040 



001422 



001000 
001422 
001141 

011260 
003630 
000042 

011260 
003630 
007176 
000001 

002654 
001500 
001423 

001740 

001422 



;PROGRAM INITIALIZATION 

;LOCK OUT INTERRUPTS 

;SET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 

; CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

;TYPE TITLE MESSAGE 



.START; 



000024 
000030 
000032 



001420 
001412 



001252 



001304 
001J06 



000032 
000042 004340 



1000$: 



176734 



1$: 

10$; 



15$: 



16$: 



2^S: 
25% t 



RESET 

MOV *STACK,SP 

MTPS MASK 

MOV tf$PWRDN,a*24 

MOV *$ERROR,EMTVFC 

MOV #340,EMTVEC+2 

CLR SPASS 

CLR8 $ERFLG 

MOV #t)lV. MAP,ACTIVE 

MOV #1 .RUN 

CLR $ERTTL 

CLR %ERRPC 

clk trsim 

MOV *♦ START, tLPADR 

;SET [IP FOR SMALL 11 SWI 

MOV #SWREG,SWR 

MOV 0DISPREG, DISPLAY 

CALL FALCON 

BEQ 1000$ 

CALL FALCIN! 

BJC *40,EMTVEC+2 

TST8 INIFLG 

BNE 10$ 

CMP a*42,*$ENDAD 

BEQ 1$ 

TYPE JiTITLE 

DFCB INIFLG 

TST8 $ENVM 

BPL 15$ 

JSR PC.SETAPT 

JMP 105$ 

TST a#4? 

BEQ 16$ 

CALL SETAPT 

JMP 105$ 

CALL GETSWR 

BIT #SW00,iSWR 

BNE 20$ 

JMP 55$ 

MOV #DZV. MAP, RO 

CLRB HDRFLG 

CLR <R0) + 

CMP RQ X *DZV.END 

BNE 25$ 

DEC8 INIFLG 



; CLEAR THE WORLD. START NEW ENVIRONMENT 

;SET UP STACK 

;LOCK OUT INTERRUPTS 

;SET UP POWER FAIL VECTOR 

;SET UP ERROR VECTOR 

;CLEA r t PASS COUNT 

; CLEAR ERROR FLAG 

;GET MAP POINTER. 

;POINT POINTER TO FIRST DEVICE. 

;CLt*AR ERROR COUNT 

; CLEAR LAST ERROR POINTER 

;SET LIP FOR TEST 1 

;SET UP FOR POWER FAIL BEFORE 

/TESTING STARTS 

TCH REGISTER COMPATIBILITY 

; POINT TO SOFTWARE SWR 

;POINT TO SOFTWARE DISPLAY REGISTER 
; CHECK FOR FALCON (KXT11) 
; BR IF NOT 

; YES, INN FOR FALCON 
; LOWER EMT TO 6. 



GPA 
GPA 
GPA 
GPA 
GPA 



HAVE WE ALREADY BEEN HERE TODAY? 

IF SO, SKIP PRINTING THE TITLE 

IF RUNNING UNDER ACT 

DON'T PRINT TITLE 

PRINT THE DIAGNOSTIC'S TITLE 

SET THE ONCE ONLV FLAG 

DETERMINE WHETHER APT SIZING SHOULD BE DONE 

IF NOT, GO CHECK FOR AUTO-SIZING 

OTHERWISE, GO DO APT SIZING FROM ETABLE 

GO PRINT DZV STATUS TABLE 
CHAINED UNDER XXDP ?? ;;GPA 
BR IF NOT ;;GPA 

YES, SET-UP FROM ETABLE ;;GPA 
AND PROCEED ;;GPA 

GET INITIAL SWITCH SETTING. ;;GPA 

RESELECT ? 

if YES, GO SET UP T HE INFORMATION 

If NO, SKIP THE INTERROGATION 

POINT TO THE BEGINNING OF THE MAP TABLE 

MAKE SURE A MAP GETS PRINTED 

CLEAR A TABLE LOCATION 

HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 

IF NOT , CLEAR THE NEXT LOCATION IN THE TABLE 

INSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 



r 
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5EQ 0037 



( 

( 

( 

( 

( 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(1) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(2) 

(1) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

<2) 



002402 
002404 
002406 
002410 
002412 
002414 
002416 
002417 
002420 



002426 
002430 
002432 
002434 
002436 
002440 
002442 
002443 
002444 



002452 
002454 
002456 
002460 



002462 
002464 
C02466 
002470 
002472 
002474 
002476 
002477 

002500 
002506 

002514 
002522 
002524 
002530 
002536 
002544 
002550 
002552 
002554 



002402 
104403 
003074 
104405 
160000 
163770 
001500 
007 
001 
013737 



002426 
104403 
003140 
104405 
000300 
000776 
00150? 
003 
001 
013737 



104403 
003367 
104406 
001510 



104403 
003324 
104405 
000001 
000020 
001344 
000 
001 

012737 
012737 

032777 
001402 
004737 
012737 
113737 
005337 
001404 
000261 
006137 



001500 001174 



001502 001170 



;THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 

.'TABLE AND SET UP THE DIAGNOSTIC, 

;GET THE BASE ADDRESS OF THE DZV1VS 

GETCSR= . ; POINTER FOR FALCON TWEAKER ;;GPA 

INSTR ;CALL THc STRING INPUT ROUTINE 

91$ .-POINTER TO MESSAGE TO BE PRIN7FD 

PARAK ;CALL THE OCTAL TO ASCII CONVERT ROUTINE 

160000 ;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

163770 .-HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

DZCRO /POINTER TO MAP LOCATION TO BE TILLED 

Ti'E 7 ;MASK OF INVALID BITS FOR THIS PARAMETER 

l ' rr 1 ^ .'NUMBER OP PARAMETERS TO STORE 

DZCRO.$BASE ;COPY BASE ADDRESS TO ETABLE 

;GET THE BASE VECTOR ADDRESS 

G£TVEC= . ; POINTER FOR FALCON TWEAKER ;;GPA 

INSTR ;CALL THE STRING INPUT ROUTINE 

9<r» .-POINTER TO MESSAGE TO BE PRINTED 

PARAM ;CALL THE OCTAL TO ASCII CONVERT ROUTINE 

300 ;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

£76 ;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

DZVCO .'POINTER TO MAP LOCATION TO BE FILLED 

.BYTE 3 ;MASK OF INVALID BITS FOR THIS PARAMETER 

.BYTE 1 .-NUMBER OF PARAMETERS TO STORE 

MOV DZVCO. $VECT1 ;COPY VECTOR TO ETABLE 



000017 
017470 



001504 
001506 



000010 176562 



002704 
000001 
001344 
001344 



001410 



001410 
001414 



30$: 
35$: 



DZVCO. $VECT1 

;GET THE MODE OF OPERATION (EA.S) 

INSTR .-CALL THE STRING INPUT ROUTINE 

96$ 

SETFLG 

MANTO 

;GET THE NUMBER OF DZV11 

INSTR 

95$ 

PARAM 

1 

16. 

$TMP1 

.BYTE 

.BVTE 1 



MOV *17<LINE0 

MOV 01747O.PARO 

BIT 0SWO3.3SWR 

BEG 30$ 

JSR PC. 65$ 

MOV #1.SAVACTV 

MOVB $TMP1,DZVNUM 

DEC $TMP1 

BEQ 40* 

SEC 

ROL SAVACTV 



POINTER TO THE MESSAGE TO BE PRINTED 
CALL THE MAINTENANCE FUG SETUP ROUTINE 
THIS IS THE FLAG BEING SETUP 

S RUNNING 

CALL THE STRING INPUT ROUTINE 

POINTER TO MESSAGE TO BE PRINTED 

CALL THE OCTAL TO ASCII CONVERT ROUTINE 

LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

POINTER TO MAP LOCATION TO BE FILLED 

MASK OF INVALID BITS FOR THIS PARAMETER 

NUMBER OF PARAMETERS TO STORE 

SET UP DEFAULT LINES 

SET UP DEFAULT LPR PARAMETER 

RECEIVER ON; 19.2 KBAUD; 2ST0P BITS; 8 BIT/CHAR 

DO YOU WANT PARAMETERS? 

IF NO. SKIP THE PARAMETER CALL 

GET PARAMETERS 

INITIALIZE ACTIVE DEVICE SELECTION PARAMETER 

COPY THE NUMBER OF DEVICES 

$TMP1 CONTAINS THE COUNT OF UNINITIALIZED 

SELECTED DEVICES 
SET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
POINT TO THE NEXT DEVICE 
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PROGRAM INITIALIZATION 



M 3 
AND START UP. 



SEG 0038 



(1) 002560 


000771 




(1) 002562 


013737 


001410 


(1) 002570 


012700 


001500 


(1 ) 002574 


012701 


001512 


(1) 002600 


012702 


001204 


(1 ) 002604 


000241 




(1 ) 002606 


0060V 


001346 


(1) 002612 


00621,7 


001346 


(1) 002616 


103404 




(1) 002620 


012711 


Mini 


(1) 002624 


000137 


003572 


(1) 002630 


012011 




(U 002632 


062721 


000010 


(13 002636 


012011, 




(1) 002640 


062721 


000010 


(1 > 002644 


012021 




(1> 002646 


012021 




( i > 002650 


012021 




CU 002652 


000757 




(1) 002654 


032777 


000010 


(1) 002662 


001002 




(1) 002664 


000137 


003572 


(1) 002670 


004737 


002704 


(1) 002674 


105337 


001422 


(1) 002700 


000137 


003630 


(1) 002704 






(2) 002704 


1G4403 




(2) 002706 


003201 




(2) 002710 


104405 




(2) 002712 


000001 




(2) 002714 


000017 




(2) 002716 


001504 




(2) 002720 


360 




(2) 002721 


001 




(1) 002722 


105037 


001423 


(1) 002726 


005737 


001510 


(1) 002732 


100021 




(1) 002734 


013703 


001504 


(1) 002740 


006003 




(1) 002742 


103410 




(1) 002744 


001414 




(1) 002746 


006203 




(1) 002750 


103373 




(1) 002752 


104402 


001356 


(1) 002756 


104402 


010176 


(1) 002762 


000750 




(1) 002764 


001772 




(1) 002766 


006203 




(1) 002770 


103370 





001346 40$: 



45$: 



50$: 



60$: 



BR 35$ 

MOV SAVACTV,$TMP2 

MOV WZCR0,R0 

MOV *DZCR1,R1 

MOV 0$D.OUO,R2 

CLC 

ROR $TMP2 

ASR $TMP2 

BCS 50$ 

MOV /M,(R1) 

JMP 100$ 

MOV (R0)+,(R1) 

ADD #10,(R1)+ 

MOV (R0)+,(R1) 

ADD *10 f (R1)+ 

MOV (R0)+,(R1)+ 

MOV (R0)+,(R1>+ 

MOV (RO) + ,(RD + 

BR 45$ 

BIT #SW03,aSUR 

BNE 60$ 

JMP 100$ 

JSR PC, 65$ 

DECB INIFLG 

JMP 105$ 



GO DO THIS PROCEDURE AGAIN 

M OF TIMES 

SET A POINTER TO THE SPECIFIED INFORMATION 

POINT Rl TO THE REST OF THE MAP TABLE 

POINT TO ETABLE'S DEVICE DESCRIPTOR WORDS 

INITIALIZE THE "C ff BIT FOR A ROTATION 

SKIP MAPPING SETUP FOR DEVICE 0- IT'S DONE 

ISOLATE A SELECTION FLAG IN THE "C" BIT 

IS THIS DEVICE SELECTED? IF YES, GO LOAD TABLE 

TERMINATE THE LIST 

GO TO THE NEXT BLOCK 

ADDRESS 

POINT TO THE NEXT DZV11 ADDRESS VALUE 

VECTOR 

POINT TO THE NEXT VECTOR VALUE 

LINES 

PARAMETERS 

MAINTENANCE MODE 

;ASK PARAMETERS ? 

;1F NO, GO DO AUTO SIZING 

;G0 SET UP FOR AUTO SIZING 

;G0 ASK PARAMETERS 

; INSURE NO AUTO SIZE IF QUESTIONS ANSWERED 

;G0 TO THE NEXT BLOCK 



;GET THE ACTIVE LINES PARAMETER 



65$: 



INSTR 

93$ 

PARAM 

1 

17 

LINEO 

.BYTE 

.BYTE 

CLRB 



360 

1 

HDRFLG 



;CALL THE STRING INPUT ROUTINE 

;POINTER TO MESSAGE TO BE PRINTED 

;CALL THE OCTAL TO ASCII CONVERT ROUTINE 

;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 

;POINTER TO MAP LOCATION TO BE FILLED 

;MASK OF INVALID BITS FOR THIS PARAMETER 

;NUMBER OF PARAMETERS TO STORE 

;MAKE SURE THE CHANGES ARE PRINTED 



;THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
;1S LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 



70$: 

75$: 
80$: 



TST 

BPL 

MOV 

ROR 

BCS 

BEO 

ASR 

BCC 

TYPE 

TYPE 

BR 

BEO 

ASR 

BCC 



MANTO 
85$ 

LINEO, R3 
»3 

80$ 
85$ 
R3 
70$ 
,$QUES 
,MBADLN 
65$ 
75$ 
R3 
75$ 



IS STAGGERED THE MODE OF OPERATION? 

IF NOT, SKIP THIS SEGMENT 

GET A SCRATCH COPY OF THE ACTIVE LINES 

GET A LINE SELECTION BITCEVEN NUMBER LINE) 

IF IT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO 

IF ALL HAVE BEEN CHECKED, CONTINUE PROCESSING 

IF IT IS 0,CHECK TO SEE IF THE NEXT IS TOO 

IF THIS ONE'S TOO, GO CHECK THE NEXT PAIR 

THIS IS AN INCORRECT PARAMETER 

LET THE USER KNOW ABOUT IT 

GO GET THE CORRECT PARAMETER 

IF ANOTHER FLAG ISN V T SET, THERE'S AN ERROR 

GET THE NEXT FLAG 

IF IT ISN'T SET, THERE'S AN ERROR 



_ 
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PROGRAM INITIALIZATION 



N 3 

AND START UP. 



SEQ 0039 



002772 
002774 



C02776 
0D2776 
OJ3000 
003002 
003004 
003006 
003010 
003012 
003013 
0030H 
003020 
003024 
003026 
003030 
003036 
003040 
003044 
003050 
003054 
O03060 
C03064 
003070 
003072 
003074 
00J140 
003201 
003254 
003324 
003367 
003410 
0^3444 
C03501 
003540 

003572 
003572 
003600 
003602 
003610 

00261 £ 
003616 
003620 
003624 
003624 
003630 
003634 
003636 
003642 
003646 
003652 
003656 



000241 
000761 



104403 
003254 
104405 
000000 
000017 
001506 

000 

001 
012702 
012703 
01 1 304 
006304 
016437 
000313 
052713 
011262 
011363 
062702 
062703 
020327 
001365 
000207 
030600 
030600 

200 
042200 
021600 

200 
020200 
020200 

200 
042600 
003572 

122737 
001013 
03*777 
001007 
005737 
001402 
00013? 

004737 
105737 

001321 
105337 

104402 

01 270Q 
010037 

012037 



052123 
052123 
044514 
043105 
047440 
040515 
042533 
044533 
055440 
052116 



000377 

000200 

017356 

002356 

011406 
001423 

001423 
010150 
0C1500 
001344 
001346 



85$: 



001504 
001506 



017302 006406 

010070 
000012 
00001? 
000012 
000012 
001734 



041440 
053040 
042516 
052501 
020106 
04^111 
052130 
052116 
052123 
051105 



001422 
175474 



90S; 



91$ 
92$ 
93$ 
94$ 
95$ 
96$ 



97$: 

.EVEN 

100$: 



1002$ 
105$; 

110$: 



CLC 
BR 



70$ 



/INITIALIZE THE "C" BIT FOR TESTING OF THE NEXT PAIR 
;G0 TEST THE NEXT PAIR OF FLAGS 



;GET THE LINE PARAMETER REGISTER ARGUMENT 



INSTR 

94$ 

PARAM 



17 

PARO 

.BYTE 

.BYTE 

MOV 

MOV 

MOV 

ASL 

MOV 

SWAB 

BIS 

MOV 

MOV 

ADD 

ADD 

CMP 

BNE 

RTS 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI,! 

.Asc:i 

.ASCII 
.ASCIZ 
.ASCIZ 



CMP8 

BNE 

BIT 

BNE 

TST 

BEO 

JMP 

JSR 

TSTB 

BNE 

D£C8 

TYPE 

MOV 

MOV 

MOV 



;CALL THE STRI,^ INPUT ROUTINE 
;POINTER TO MESSAGE TO BE PRINTED 
;CALL THE OlTAL TO ASCII CONVERT ROUTINE 
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
.♦POINTER TO MAP LOCATION TO BE FILLED 
;MASK OF INVALID BITS F0,'< THIS PARAMETER 
;NUMOER OF PARAMETERS TO STORE 
;PO.iNT TO THE LINE SELECTION PARAMETER 
; POINT TO 1HE CHOSEN PARAMETERS 
;USE aMJD RATE AS AN INDEX IN DELAY TABLE 
ALIGN ltlvZX ON WORD BOUNDARV 

;SET THE t<ELAY COUNT FOR TH,!S BAUD RATE 
;PLACE IN HIGH BYTE 
;PLACE EXTRA PARAMETERS INTO LOC 
;LOAD THE LINES 
;LOAC THE PARAMETERS 
;POWT TO THE NEXT SET 
; .. OF BOTH PARAMETERS 
;HA^E THE TA3LE BOUNDARIES BErN EXCEEDED? 
;1F NOT, GO LOAi) SOME MORE PARAMETERS 
;RETURN TO CALLING BLOCK 

CSR ADDRESS (160000:163770): / 

VECTOR ADDRESS (300:770): / 

BY BIT <IN 0CTAL>(001:17): / 
RATE <IN OCTAL>(00:17): / 





1 

*LINE0,R2 

*PAR0,R3 

(R?),R4 

DLYT8L(R4),DLYCNt 

(H3) 

#10070- (A3) 

(R2) ,12(R2) 

(R3),12(R3) 

*12,R2 

012, R3 

R3,*PAR17 

90$ 

PC 

<200>/1ST 

^200>/lST 

<200>/LINES ACTIVE 

<200>/DEFAULT BAUD 

<200>/* OF DZV1VS <1N OCTAL> (1:20) 

<200>/MAINTENANCE MODE/ 

<200>/ [EXTERNAL 

<20Q>/ ^INTERNAL 

<200>/ CSTAGGERED 

<200>/ENTER DELAY 



<H3.?5> (E)]/ 
<DZVCSR03=1XI)D/ 
<H329> (S)J: / 
PARAMETER: / 



0377,INIFLG 

105$ 

*BIT7,aSWR 

1 05$ 

KXTFLAG 

1002$ 

20$ 

PC.AUTO.SIZE 

HDRFLG 

120$ 

HDRFLG 

,XHEAD 

fDZV.MAP.RO 

R0-$TMP1 

(R0)+,$TMP2 



ONLY DO AUTO SIZE ON 1ST START 

8IT7=1?? 

BR IF NO AUTO SiZf: 

FALCON ?? 

SKIP NEXT IF NOT, 

YES, DON'T AUTO-SIZE. 



;;GPA 

;;GPA 
;;GPA 
;;GPA 



60 DO THE AUTO SIZE- 
HAS THE TABLE BEEN TYPED YET? 
IF SO, DON'T TYPE IT AGAIN 
INDICATE THAT THE TABLE WILL BE TYPED 
TYPE MAP HEADER 
SET POINTER 

POINT W> THE MAP LOCATION 
SET DATA 
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PROGRAM INITIALIZATION 



B 4 
AND START UP. 



SEQ 0040 



003662 
003670 
003672 
003674 
003676 
003700 
003706 
0037U 
003722 
003724 
003724 
003726 
003730 
003732 
003734 
003736 
003740 
003741 
003742 
003750 
003752 
003756 
003760 
003764 
003772 
003776 
004000 
004004 
004006 
004014 
004016 
004020 
0040^2 
004024 
004026 
004030 
004032 
00*^3 
GC4034 
004040 
00<*044 
004046 
004050 
004052 
004056 
004060 
004064 
004066 
004066 
004072 



022737 
001403 
104411 
010240 
000765 
013737 
113737 
032777 
001431 

104403 
010066 
104405 
000001 
177777 
001406 
OOC 
001 
023737 
101403 
104402 
000762 
105037 
013737 
006237 
103002 
105237 
001372 
032777 
001407 
104403 
003540 
104405 
000001 
177777 

006406 
000 
001 
012700 
012701 
010120 
005021 
022021 
005737 
001403 
020027 
000402 



Si 



'2700 
>1364 



177777 001346 



001410 
001414 
000100 



001406 

007740 

001416 
001406 
001344 

001416 

000020 



000300 
000302 



017356 
000400 

001000 



001406 
001416 
175362 



115$: 
120$: 

121$: 



OOKIO 



001344 



1 75270 



122$: 
126$: 



127$: 
135$: 



140$: 
145$: 



1001$: 



CMP 
BEQ 
CONVRT 

XSTATO 

BR 

MOV 

MOVB 

BIT 

BEQ 

INSTR 

MNEW 

PARAM 

1 

177777 

DZVACTV 

.BYTE 

.BYTE 

CMP 

BLOS 

TYPE 

BR 

CLItB 

MOV 

ASR 

BCC 

INC8 

BNE 

BIT 

BEQ 

INSTR 

97$ 

PARAM 

1 

177777 

DLYCNT 

.BYTE 

.BYTE 

MOV 

MOV 

MOV 

CLR 

CMP 

TST 

BEQ 

CMP 

402 

CMP 
BNE 



rf-1,$TMP2 
120i 



110$ 

SAVAUV, DZVACTV 

DZVNUM,SAVN0 

*SW06,9SWR 

135$ 





1 

DZVACTV, SAVACTV 

122$ 

,MERR3 

121$ 

SAVNO 

DZVACTV, $TMP1 

$TMP1 

127$ 

SAVNO 

126$ 

#SW04,9SWR 

140$ 





1 

*300,RO 

*302,R1 

R1,(R0>+ 

<R1) + 

<R0) + ,(RD + 
KXTF LAG 
1001$ 
R0,4400 



#1Q00,R0 
145$ 



;TEST START AND RESTART 



;END OF LIST? 

;8R IF YES 

;CALL ME OCTAL TO ASCII CONVERSION ROUTINE 

/CONVERT THE DATA AT THIS ADDRESS 

;G0 PRINT THE NEXT PARAMETER 

MAP OF SYSTEM DEVICES ACTIVE 
OF SYSTEM DEVICES ACTIVE 
SPECIFIC DEVICES?? 



;COPY 81 T 
;COPY NO. 
♦•DESELECT 
;BR IF NO. 



CALL THE STRING INPUT ROUTINE 
POINTER TO MESSAGE TO BE PRINTED 
CALL THE OCTAL TO ASCII CONVERT ROUTINE 
LOWjST LEGITIMATE VALUE OF EXPECTED RESPONSE 
HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
POINTER TO MAP LOCATION TO BE FILLED 
MASK OF INVALID BITS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 
IS THE VALUE VALID? 
BRANCH IF YES 
IF NOT THEN TYPE ERROR 
GO REASK QUESTION 
CLEAR NO. OF DEVICES BEING TESTED 
COPY BIT MAP OF ACTIVE DEVICES BEING TESTED 
SHIFT OUT AN ACTIVE BIT 
IF NOT ACTIVE SKIP INCREMENT 
IF ACTIVE RECORD IT 

IF ALL ACTIVE BITS RECORDED DON'T BRANCH 
CHECK TO SEE IF DELAY COUNT CHANGES 
IF NOT, GO CLEAR VECTOR AREA 
CALL THE STRING INPUT ROUTINE 
POINTER TO MESSAGE TO BE PRINTED 
CALL THE OCTAL TO ASCII CONVERT ROUTINE 
LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
POINTER TO MAP LOCATION TO BE TILLED 
MASK OF INVALID BiTS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 
PREPARE TO CLEAR THE FLOATING 
VECTOR AREA. 300-776 
START PUTTING "PC+2 - HALT ' 
IN VECTOR AREA. 
POP POINTERS 
IF FALCON... 



004074 012706 001120 
004100 10642? 000200 



BEGIN: MOV 
MTPS 



*STACK,SP 

MASK 



;...STOP AT 400. 
; SKIP NEXT 

;ALL DONE?? 
;BR IF NO. 



;SET UP STACK 

;LOCK OUT INTERRUPTS 



;;GPA 
;;GPA 
;;GPA 
;;GPA 
;;GPA 
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C 4 
AND START UP. 



SEQ 0041 



) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
3023 



004104 
004110 
004112 
004120 
004122 
004126 
004134 
004136 
004144 
004152 
004160 
004164 



005737 
001015 
032777 
001406 
104402 
012737 
000403 
013737 
012737 
113737 
104402 
000177 



000042 

000004 175164 



007764 
000240 

004644 
010552 
001416 
007655 
175062 



004416 

004416 
001252 
001415 



1$: 
2$: 



;;GPA 



TST 9*42 

BNE 2$ 

BIT 0BIT2,aSWR 

BEQ 1$ 

TYPE ,MLOCK 

MOV *NOP,TTST 

BR 2$ 

MOV BRW,TTST 

MOV #CYCLE,$LPADR 

MOVB SAVNO,SAVNUM 

TYPE ,MR 

JMP 8SI.PADR 

PRGEND DZV11,<END PASS 



;IS PROGRAM UNDER MONITOR CONTROL 

;BR IF YES 

; CHECK FOR LOCK ON TEST 

;BR IF NO LOCK DESIRED. 

;TYPE LOCK SELECTED. 

;ADJUST SCOPE ROUTINE. 

; CONTINUE ALONG. 

;PREPARE NORMAL SCOPE ROUTINE 

;STARF AT "CYCLE" FIND WHICH DEVICE TO TEST 

;COPY ACTIVE DEVICES BElNd TESTED 

;TYPE "RUNNING" 

;START TESTING 

CVDZA-8 >,10. 
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3029 
(2) 
(2) 
(2) 
(2) 
(3) 
(3) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
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END OF PASS ROUTINE 



D 4 



SEQ 0042 



004170 
004170 
004172 
004176 
004202 
004206 
004212 
004216 
004222 
004226 
004232 
004236 
004242 
004246 
004252 
004256 
004262 
004266 
004270 
004276 
004302 
004306 
004314 
004316 
004320 
004322 
004324 
004326 
004330 
004334 
004336 
004340 
004342 
004344 
004346 
004350 
004350 
004352 

004354 
004356 
004360 
004362 
004364 



000004 
005037 
105037 
1U4402 
104402 
104412 
104402 
10441? 
005237 
J 04402 
104412 
005337 
104402 
10441? 
00523" 
105337 
G01030 
113737 
005037 
005237 
042737 
005327 
000001 
003013 
012737 
000001 
004316 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
010552 



0000Q1 



001262 
001247 
007631 
010013 
004354 
010021 
004362 
001126 
010027 
004370 
001126 
010040 
004376 
001130 
001415 

001416 
001354 
001126 
100000 



000042 




002 
002 



.SBTTL 



END Of PASS 

TYPE NAME OF TEST 

UPDATE PASS COUNT 

CHECK FOR EXIT TO ACT-11 
.RESTART TEST 
END OF PASS ROUTINE 



; INCREMENT THE PASS NUMBER (SPASS) 
;*IF THERES A MONITOR GO TO IT 
;*1F THERE ISN'T JUMP TO CYCLE 



$EOP: 



001415 



001126 



SEOPCT: 



SENDCT: 
SGET42: 



SENDAD: 



SDOAGN; 
SRTNAD: 



SCOPE 

CLR 

CLR8 

TYPE 

TYPE 

CNVRT 

TYPE 

CNVRT 

INC 

TYPE 

CNVRT 

DEC 

TYPE 

CNVRT 

INC 

DECS 

GNE 

wove 

CLR 
INC 
BIC 
DEC 

• WORD 
BGT 
MOV 
.WORD 
SEOPCT 
MOV 
BEQ 
RESET 
JSR 
NOP 
NOP 
NOP 

JMP 

• WORD 



SERRPC 


; CLEAR LAST ERROR PC 


SERFLG 


; CLEAR ERROR FLAG 


,MEPASS 


;TYPE END PASS 


,MCSRX 


?T\r>E CSR 


,XCSR 


;SHOW IT 


,MVECX 


?TYPE VECTOR 


,XVEC 
SPASS 


?SHOW IT 


;RA1SE PASS COUNT 


,MPASSX 


rTYPE PASSES 


.XPASS 
SPASS 


?SHOW IT 


? RESTORE (ASS COUNT 


,MERRX 


rTYPE EPJWRS 


t XERR 
SDEVCT 


;SHOW IT 

j INC DEVCNT FOR APT 


SAVNUM 


;ARE ALL DEVICES TESTED? 


SDOAGN 


;BR IF NO. 


SAVNO.SAVNUM 
STIMES 


; RESTORE THE COUNT 


•;2ER0 THE NUMBER OF ITERAT 


SPASS 


-; INCREMENT THE PASS NUMBER 


0100000, SPASS , 


•;DON'T ALLOW A NEG. NUMBER 


(PO + 
1 

SDOAGN 


•;LOOP? 


■;YES 


<po+,a<PCH 


■;RESTORE COUNTER 


9*42, RO 


\-GET MONITOR ADDRESS 


SDOAGN 


; BRANCH IF NO MONITOR 




; CLEAR THE WORLD 


PC(RO) 


;G0 TO MONITOR 




;SAVE ROOM 




;FOR 




;ACT11 



a(PO+ 

CYCLE 



; /RETURN 



XCSR: 1 

.BYTE 6,2 

mCSR 
XVEC: 1 

.BYTE 3,2 



r 
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(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(3) 
(3) 
(4) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(5) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
<3) 
(3) 
(3) 
(3) 
(3) 



004366 
004370 
004372 
004374 
004376 
004400 
004402 



004404 

004404 
004410 
004414 
004416 
004420 
004424 
004426 
004434 
004442 



004446 
004452 
004460 
004464 
004470 
004472 
004474 
004500 
004502 
004502 
004506 
004510 
004514 
004520 
004526 
14530 
)4534 

)45: 

)454i 
004551 



002040 
000001 

006 
001126 
000001 

006 
001256 



005037 
022716 
001413 
000406 
105777 
100067 
017766 
032777 
001060 



004444 000416 



013746 
012737 
005737 
012637 

022626 
012637 
000441 



105737 
001404 
105037 
CQ5037 
032777 
001011 
05737 
01406 



002 
002 



001262 
012114 



174664 

174660 
040000 



000004 
004472 
177060 
000004 



000004 



001247 

001247 
001354 
004000 



001126 




E 4 
11:08 PAGE 25-24 

END OF PASS ROUTINE 

DZVRIV 
XPASS: 1 

.8YTE 6,2 

SPASS 
XERR: 1 

.8YTE 6,2 

SERTTL 

;SCOPE LOOP AND ITERATION HANDLER 

f 

.SBTTL SCOPE HANDLER ROUTINE 

;;***********t\-** ********************* ********** ****************** 

;*TH1S ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

;*AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG- (DISPLAY<7:0» 

;*AND LOAD THE ERROR FLAG ($ERFL6) IN70 DISPLAY<15:08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;*SW14=1 LOOP ON TEST 

;*SW11=1 INHIBIT ITERATIONS 

;*CALL 



SEQ 0043 



177776 
174642 



000004 



;* 



SCOPE 



;;SCOPE=IOT 



SSCOPE: 
.SCOPE: 



2$: 
4$: 
174556 3$; 



001250 



CLR 
CMP 
BEG 

TTST: BR 

TSTB 

BPL 

MOV 

1$: BIT 
BNE 

;MWSTART OF 

SXTSTR: BR 



MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 

MOV 
BR 

6$:;flMWEND 



OF 



TS'i3 

BEG 

CLRB 

CLR 

BIT 

BNE 

TST 

BEQ 

INC 

CMP 

3GE 



SERRPC 

#TST1+2,<SP) 
SXTSTR 
1$ 

8STKS 
SOVER 

BSTKB.-2(SP) 
*8IT14,aSWR 
SOVER 
CODE FOR THE XOR 
6S 

afERRVEC-(SP) 

#5So8#ERRVEC 

a*1?7060 

(SP) + .MERRVEC 

SSVLAD 

<SP)+, <SP)+ 

<SPH, 8JERRVEC 

SOVER 

CODE FOR THE XOR 

SERFLG 

3$ 

SERFLG 

STIMCS 

*8N11,8SWR 

SPASZ 

1$ 

SJCNT 

STIMES,SICNT 

SOVER 



CLEAR LAST ERROR PC. 

IS THIS THE SCOPE A T THE BEGINNING OF TST1? 

IF SO. DON'T LOOP ON IT 

GOTO 15 (IF LOCK SW02=1; THIS LOC =240) 

KEYBOARD DONE? 

8R IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 

CLEAR DONE BIT 

;LOOP ON PRESENT TEST? 
,;YES IF SW14=1 
TtSTERMftMMM 

:1F RUNNING ON THE ,, XQR M TESTER CHANGE 

;THIS INSTRUCTION TO A * 1M0P* * (N0P=240) 

;SAVE THE CONTENTS OF THE ERROR VECTOR 

;SET FOR TIMEOUT 

;TIME OUT ON XOR? 

;RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

; CLEAR THE STACK AFTER A TIME OUT 

.-RESTORE THE ERROR VECTOR 

;LOOP ON THE PRESENT TEST 

TESTEfMNMMMT 

;HAS AN ERROR OCCURRED? 

;BR IF NO 

;2ER0 THE ERROR FLAG 

; CLEAR THE NUMBER OF ITERATIONS TO MAKE 

.•INHIBIT ITERATIONS? 

*8R IF YES 

]lF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 

.•INCREMENT ITERATION COUNT 

.-CHECK THE NUMBER OF ITERATIONS MADE 

;BR IF MORE ITERATION REQUIRED 
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SCOPE HANDLER ROUTINE 



F 4 



(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(5) 
(5) 
(5) 
(5) 
(5) 



(3) 



(2) 
(2) 
(3) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



004552 
004560 
004566 
004572 
004600 
004604 
004612 
004616 
004622 
004626 
004632 
004634 
004642 
004644 
004646 



004650 
004656 
004660 
004664 
004666 
004672 

004674 
004702 
004704 
004710 



012737 
013737 
105237 
113737 
011637 
013777 
013716 
004737 
105037 
005737 
001003 
112737 
000002 
000406 
000005 



032777 
001405 
005737 
001402 
013716 
000002 

032777 
001403 
062716 
000002 



000001 001250 

004646 001354 

001246 

001246 001124 

001252 

001246 174474 

001252 

007150 

001424 

001372 

000010 001424 



001000 174426 

001364 

001364 



000002 



004712 105737 001323 

004716 100002 

W720 QOOOOQ 

I04722 000430 

(04724 01004 

)04726 01760 

004732 12273 

004740 001011 



000002 

000001 001140 



SEQ 0044 



1$: MOV 
MOV 

SSVLAD: INC8 
M0V8 
MOV 

$OVER: MOV 
MOV 
JSR 
CLRB 
TST 
BNE 

Move 

4$: RTJ 

GRU: 406 
SMXCNT: 5 



*1,$JCNT 

SMXCNT,$TIMES 

STSTNM 

$TSTNM,$TESTN 

(SP). SLPADR 

$TSTNM,8DISPLAY 

$LPADR,(SP) 

PC.SERV.G 

MNTFLG 

MODE 

4$ 

0MAINT,MNTFLG 



REINITIALIZE THE ITERATION COUNTER 

;SET NUMBER OF ITERATIONS TO DO 

; COUNT TEST NUMBERS 

;SET TEST NUMBER IN APT MAILBOX 

;SAVE SCOPE LOOP ADDRESS 

; DISPLAY TEST NUMBER 

; FUDGE RETURN ADDRESS 

FIND OUT IF *G WAS TYPED 

CLEAR THE HMNTENANCE BIT SETTER AFTER EACH TEST 

HAS THE MODE BEEN CHANGED? 

IF NOT INTERNAL , GO DO A TEST 

IF INTERNAL MODE NOW, SET THE MAINTENANCE BIT 

GO DO THE TEST 

;MAX. NUM8ER OF ITERAHONS 



; CHECK FOR FREEZE ON CURRENT DATA 



.SC0P1: BIT 
BEQ 
TST 
BEQ 
MOV 

1$: RTI 



#SW09,9SWR 

1$ 

LOCK 

1$ 

LOCK,(SP) 



010000 174402 .TYPE: 



•SBTTL 



BIT 
BEQ 
ADD 
RTI 
TYPE ROUTINE 



#SW12,SSWR 

STYPE 

*2,<SP> 



IS SW09=1(SET)? 

8R IF NOT SET. 

IS THERE A TIGHT LOOP SPECIFIED? 

IF NO, RETURN 

If YES, GOTO THE ADDRESS W LOCK. 

GO BACK. 

INHIBIT ALL PRINTOUT?? 

IF NOT, GO TYPE 

SKIP OVER MESSAGE POINTER 

RETURN TO WHERE PROCEDURE WAS INVOKED 



;********* ********** **** ******* ********************************* 

♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A C BYTF. 
♦THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FFFD. 



♦N0TE1 
♦N0TE2 
♦N0TE3 

* 

♦CALL: 

♦1) USING A 

* TYPE 
♦OR 

* TYPE 

* ME S ADR 

* 



SNUll CONTAINS THE CHARACTER TC BE USED AS THE FILLEh CHARACTER. 
SFiLLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS 1HE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
,MESADR 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



$TYPE; 



1$: 



004742 132/37 000100 001141 



TST8 

8PL 

HAL1 

BR 

MOV 

MOV 

CMPB 

BNE 

BIT8 



STPFLG 
1$ 

3$ 

RQ.-(SP) 

a2(SP),R0 

*APTENV,$ENV 

62$ 

#APTSPOOL,$ENVM 



;1S THERE A TERMINAL? 

;BR IF YES 

;HALT HERE IF NO TERMINAL 

; LEAVE 

'SAVE RO 

•GET ADDRESS OF ASCIZ STRING 

;RUNNING IN APT MODE 

;NO,GO CHECK FOR APT CONSOLE 

; SPOOL MESSAGE TO APT 
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TYPE ROUTINE 



(2 
(2 

(2 
(2 
(2 
<2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 

(2 

(2 
(2 
(2 
(2 
(2 
(2 
(2 



00*750 
004752 
004756 
0O4762 
004764 
004772 
004774 
004776 
005000 
005002 
005004 
005010 
005012 
005016 
005020 
005024 
005026 
005030 
005032 
005034 
005040 
005042 
005046 
005052 
005054 

005060 
005064 
005066 
005072 
005076 



001405 
01003/ 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104402 
001357 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 



004762 
005254 

000040 001141 



000002 
000011 
000200 

005242 

005124 
001322 

001320 

000001 

005124 
005242 



61$: 
62$: 

2$: 



60$: 
3$: 



5$: 
6$: 



7$: 



BEG 

MOV 

JSR 

• WORD 

BI18 

BNE 

movb 

BNE 

tst 

MOV 

ADD 

RTJ 

CHPB 

BEG 

CMP8 

BNE 

TST 

TYPE 

$CRLF 

CLR8 

BR 

JSR 

CMPB 

BNE 

MCV 

DEC8 

BLT 

JSR 

DECS 

BR 



G 4 



62$ 

R0,61$ 

PC,$ATY3 



#APTCSUP,$ENVM 

60$ 

(RO)+,-(SP> 

4$ 

($P) + 

(SP)+ f RO 

#2 ASP) 

*HT,(SP) 

8$ 

#CRLF,(SP) 

5$ 

(SPH 



$CHARCNT 
2$ 

PC-$TYPEC 
$FILLC,(SP)+ 
2$ 
$NULL,-(SP> 

KSP) 

6$ 

PC,$TYPEC 

$CHARCNT 

7$ 



SEG 0045 



♦•HORIZONTAL TAB PROCESSOR 



005100 


112716 


000040 


005104 


004737 


005124 


005110 


132737 


000007 005242 


005116 


001372 




005120 


005726 




005122 


000724 




005124 






005124 


105777 


174160 


005130 


100022 
017746 




0)5132 


174154 


005136 


042716 
122716 


177600 
000023 


005142 


005146 


001012 




005150 
005150 


105777 


174134 


005154 


100375 




005156 


117716 


174130 


005162 


042716 


177600 


m 


122716 
001366 


000021 


005174 






005174 


005726 





8$: 
9$: 



$TYPEC: 



101$: 



102$: 



MOVB *' ASP) 

JSR pcJtypec 

Bi'TB #7,$CHARCNT 

BNE 9$ 

TST (SP) + 

BR 2$ 

TSTB a$TKS 

BPL 10$ 

MOV a$TKB--(SP> 

BIC #177660, (ZP) 

CMPB #$XOFF,<SP) 

BNE 102$ 

TSTB a$TKS 

BPL 101$ 

MOVB a$TKB 1 (SP) 

BIC *177660,(SP) 

CMPB #$XON,(SP> 

BNE 101$ 

TST (SP)+ 



;NO,GO CHECK FOR CONSOLE 

;SETUP MESSAGE ADDRESS FOR APT 

; SPOOL MESSAGE TO APT 

;MESSAGE ADDRESS 

;APT CONSOLE SUPPRESSED 

;Y£S,SKIP TVPE OUT 

;PUSH CHARACTER TO BE TYPED ONTO STACK 

;BR IF IT ISN'T THE TERMINATOR 

:1F TERMINATOR POP IT OFF THE STACK 

; RESTORE RO 

;ADJUST RETURN PC 

; RE TURN 

;BRANCH IF <HT> 

.'BRANCH IF NOT <CRLF> 

;POP <CRXLF> EQUIV 
;TYPE A CR AND LF 

; CLEAR CHARACTER COUNT 
:GET NEXT CHARACTER 

GO TYPE THIS CHARACTLR 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAS. 

GET * OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR JF 1:0—60 POP THE NULL OFF OF STACK 

GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 



;;REPLACE TAB WITH SPACE 
;;7YPE A SPACE 
,;BRANCH IF NOT AT 
;;TAB STOP 

;;POP SPACE OFF STACK 
;;6ET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 

;;8R IF NOT 

;;GET CHAR 

;; STRIP EXTRANEOUS BITS 

;;WAS CHAR XOFF 

;;BR IF NOT 

;;WAIT FOR CHAR 

;;GET CHAR 
;;STRIP IT 
;;WAS IT XON? 
;;BR IF NOT 



;;FIX STACK 



;MJD001 
;MJD001 
;MJDQQ1 
;MJD001 
;MJD001 
;MJDQ01 
;MJD001 
;MJD001 
;MJD001 
;MJD001 
;MJD0Q1 
;MJD001 
;MJD001 
;MJD001 
;MJD001 



CVDZA-C HACY11 30GC1063) 10-AU6-81 
CVDZAC.P11 10-AUG-81 10:55 



11:08 PAGE 25-27 
TYPE ROUTINE 



H 4 



SEG 0046 



(2 

(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(3 
(2 
(2 
(2 
(2 
(2 
(4 
(4 
(2 
(2 
<2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(2 
(? 
(A 
(2 
(2 

(2 
(2 
(2 

(2 



005176 
005176 
005202 
0052Q4 
005212 
005220 
005222 
005226 
005230 
005236 
005240 
005242 
0052M 



005246 
005254 
005262 
005264 
005272 
005272 
005274 
005276 
005302 
005304 
005312 
005314 
005322 
005324 
005330 
005336 
005342 
005344 
005350 
005352 
005354 
005360 
005362 
005366 
005374 
005376 
C05404 
005412 
005416 
0054; 

8BS 

oo5<: 

0054: _ 
005436 
005440 
005444 
005446 
005454 



to 

!2 



105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
01C037 
105720 
001376 
163700 
006200 
0">0037 
012737 
000413 
017637 
766 
746 
004737 
000000 



8? 



105737 
001416 
005737 
001413 

88 57 2 7 

qoi ih 

017637 
062766 



174112 

000002 
000015 

005242 



000001 
000001 



005510 
00C001 



000004 
000002 
001120 



174104 
000002 



000012 000002 1$; 



005512 
005510 



000001 005512 



001140 



000^00 001141 
000004 



001134 

0C1134 

001136 

000004 001120 

000004 005422 
00QQQ2 000004 
177776 
004712 

005512 

001140 

001120 

0000O4 001122 
000002 000004 



10$: 

1'STB 
BPL 
MOVB 
CMP8 
BNE 
CLRB 
BR 
CMPB 
BEO 
INC8 
$CHARCNT:.WORD 
STYPEX: RTS 



3$TPS 

10S 

2(SP),a$TPB 

#CR,2(SP> 

1$ 

$CHARCNT 

STYPEX 

*IF,2(SP) 

srmx 

(PO + 


PC 



;WAJT UNTIL PRINTER IS READY 

;10AD CHAR TO BE UPEO INTO DATA PEG. 

:1S CHARACTER A CARRIAGE RETURN? 

;8RANCH IF NO 

; YES— CLEAR CHARACTER COUNT 

;EXIT 

;IS CHARACTER A LINE FEED? 

;8RANCH IF YES 

; COUNT THE CHARACTER 

; CHARACTER COUNT STORAGE 



;MJD001 
;MJD001 



♦S8TTL APT COMMUNICATIONS ROUTINE 



SATY1 

$ATY3 

SATY4 
$ATYC 



************* A******************* t*********************^* ft* 

MOVB #1,$FFLG ;;T0 REPORT FATAL ERROR 

MOVB *1,$MFI.G ;;T0 TYPE A MESSAGE 

BR SATYC 

MOVB *1,$FFLG ;;T0 ONLY REPORT FATAL ErtROR 



1S: 
2$: 



3$: 



4$: 
5$: 

10$: 



11$: 



MOV RO, -(SP) 

MOV R1, -<SP> 

TSTB $MFL6 

BEO 5$ 

CM^B #APTENV,$ENV 

8NE 3$ 

BITB #APTSPOOL,$ENVM 

BEO 3$ 

MOV 34(SP),R0 

ADD *2,4(SP> 

TST SMSGTYPE 

BNE i$ 

MOV RO.SMSGAD 

TSTB <R0) + 

BNE 2$ 

SUB $MSGAD,RO 

ASR RO 

MOV R0,$MSGLGT 

MOV *4,$MSGTYPE 

BR 5$ 

MOV a4(SP),4$ 

ADD *2,4<s£> 

MOV 17?776.-<SP) 

JSR PC,$TYPE 

.WORD 

TSTB $FFLG 

BEG 12S 

TST *ENV 

8EQ 12$ 

TST $MSGTYPE 

BNE 11$ 

MOV a4(SP) x $FATAL 

ADD *2,4<s£) 



PUSH RO ON STACK 

Pl'SH R1 ON stag; 

SHOULD TVPE A MESSAGE? 

IF NOT: BR 

OPERATING UNDEP APT? 

IF NOT: BR 

SHOULD SPOOL MESSAGES? 

IF NOT: BR 

GET MESSAGE ADDR. 

;;BUMP RETURN ADDR. 
SEF IF DONE WV LAST XMISSION? 
IF NOT: WAIT 
PUT ADDR IN MAILBOX 
FIND END OF MESSAGE 



;;SUB START OF MESSAGE 
;;GET MESSAGE LMGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;;8UMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



;SHOULD REPORT FATAL ERROR? 

;IF NOT: BR 

.•RUNNING UNDER APT? 

;IF NOT- BR 

♦•FINISHED I AST MESSAGE? 

;1F NOT: WAIT 

;GET ERROR # 

;;BUMP RETURN ADDR. 



CVD 
CVD 
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APT COMMUNICATIONS ROUTINE 



I 4 



005462 
005466 
005472 
005476 
005502 
005504 
005506 
005510 
005511 
005512 



005514 
005516 
005520 
005526 
005534 
C0553u 
005540 
005544 
005550 
005554 
0055S6 
005562 
005566 
005572 
005574 
005600 
005602 
005610 
005612 
005614 
005616 
005620 
005622 
005624 
005630 
005632 
005634 
005636 



005640 
005642 
005644 
005650 
005654 



005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 
005514 
000200 
000001 
000100 
000040 



010346 
010446 
017637 
062766 
104402 
OOCCCO 
012704 
012703 
105777 
100375 
117714 
142714 
122427 
001417 
105777 
100375 
017777 
005303 
001356 
012604 
012603 
010346 
010446 
104402 
000741 
012604 
12603 
00002 



s 




001120 
005512 
005511 
005510 



12$: 



INC 
CLRB 
CLRB 
CLR8 
MOV 
MOV 
RTS 
.BYTE 
.BYTE 
.BYTE 
.EV'N 
APTSI2E=200 
APTENV=001 
APTSPOOL=100 
APTCSUP=040 



SMFLG: 
$LFLG: 
$FFLG: 



SMSGTYPE 

SFFLG 

$LFLG 

SMFLG 

<SP)+, R1 

<SP)+,RO 

PC 









;STRING INPUT ROUTINE 



000004 005536 
000002 000004 



010446 
000007 
173534 

173530 
000200 
000015 

173514 

173504 173506 



001356 



.INSTR: MOV 
MOV 
MOV 
ADD 

.INST1: TYPE 

..ISC: 

MOV 
MOV 

1$: TST8 
BPL 
MOVB 
BIC8 
CMPB 
BEQ 

2$: TSTB 
BPL 
MOV 
DEC 
BNE 
MOV 
MOV 

.INSTE: MOV 
MOV 
TYPE 
BR 

INSTR2: MOV 
MOV 
RTI 



R3,-(SP) 
R4,~(SP> 
94(SP),.MSG 
#2,4<SP) 



rfINBUF,R4 

#7,R3 

HSTKS 

1$ 

a$TKB,(R4) 

#200, (R4) 

(R4)+,*15 

1NSTR2 

aSTPS 

2$ 

S$TK8,S$TPB 

R3 

1$ 

<SP)+,R4 

<SP)+-R3 

R3,-($P) 

R4--CSP) 

.SQUES 

.INST1 

(SP)+, R4 

(SP)+, R3 



SEQ 00^7 



;TELL APT TO TAKE ERROR 
; CLEAR FATAL FLAG 
; CLEAR LOG FLAG 
/CLEAR MESSAGE FLAG 
;POP STACK INTO R1 
;POP STACK INTO RO 
; RETURN 
;MESSG. FLAG 
;LOG FLAG 
; FATAL FLAS 



SAVE R3 ON STACK 

SAVE R4 ON STACK 

GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 

POINT TO INSTRUCTION AFTER ADDRESS POINTER 

PRINT THE MESSAGE 

MESSAGE IS POINTED TO FROM HERE 

POINT R4 TO THE INPUT BUFFER 

SET THE MAXMUM NUMBER OF CHARACTERS ALLOWED 

HAS A CHARACTER BEEN RECEIVED? 

If NO, KEEP WAITING FOR IT 

If YES, SAVE IT IN THE INPUT BUFFER 

KEEP ONLY THE 7-BIT ASCII INFORMATION 

IS THIS CHARACTER A LINE FEED? 

If SO, TERMINATE THE INPUT SEQUENCE 

If NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 

If WE CAN'T, WAIT UNTIL WE CAN 

ECHO THE CHARACTER BACK 

REDUCE THE NUMBER OF CHARACTERS RECEIVED 

If WE DON'T HAVE 7, GO GET SUAE MORE 

If WE HAVE 7, RESTORE R4 

RESTORE R3 

SAVE R3 ON THE STACK 

SAVE R4 ON THE STACK 

PRINT A QUESTION MARK... WHAT'S GOING ON? 

GO PRINT THE MESSAGE AGAIN 

RESTORE R4 

RESTORE R3 

RETURN TO THE MAIN PROCEDURE 



.-CONVERT ASCII S'.RING TO OCTAL 



000004 
006030 



537 006032 



.PARArt: MOV 
MOV 
MOV 
MOV 
MOV 



R5,-(SP) 
R4--CSP) 
L($P), R5 
(R5)+,L0LIM 
<R5)+,HILIM 



SAVE R5 ON THE STACK 

SAVE R4 ON THE STACK 

GET THE SETUP INFORMATION POINTER 

SET THE LOW LIMIT FOR THE INPUT 

SET THE HIGH LIMIT FOR THE INPUT 
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APT COMMUNICATIONS ROUTINE 



J 4 



SEQ 0048 



005660 


012537 


006034 


005664 


112537 


006036 


005670 


112537 


006037 
000004 


005674 


010566 


005700 


005005 




005702 


012704 


010446 


005706 


122714 


000015 


005712 


001420 




005714 


121427 


000060 


005720 


002415 




005722 


121427 


000067 


005726 


003012 




005730 


142714 


000060 


005734 


152405 




005736 


122714 


000015 


005742 


001406 




005744 


006305 




005746 


006305 




005750 


006305 




005752 


000760 




005754 


104404 




005756 


000750 




005760 


J20537 


006032 


005764 


101373 




005766 


020537 


006030 


00577? 


103770 




00577* 


133705 


006036 


006000 


001365 




006002 


013704 


006034 


006006 


010524 




006010 


062705 


000002 


006014 


105337 


006037 


006020 


001372 




006022 


012604 




006024 


012605 




006026 


000002 




0*6030 


000000 




006032 


000000 




006C34 


000000 




006036 


000 




006037 


000 





MOV 
MOVB 
M0V8 
MOV 

PARAM1: CLR 
MOV 
CMPB 
BEG 

1$: CMPB 
BLT 
CMPB 
BGT 
BICB 
BISB 
CMPB 
BEQ 
ASL 
ASL 
ASL 



<R5)+, DEVADR 

<R5)+,L0BITS 

<R5)+,ADRCNT 

R5,4(SP) 

R5 

#INBUF f R4 

#15-(R4) 

PARERR 

<R4),#60 

PARERR 

<R4),*67 

PARERR 

060, (R4) 

(R4)+,R5 

#15,<R4) 

LIMITS 

R5 

R5 

R5 

1$ 



BR 
PARERR: INSTER 

BR PARAM1 



SAVE THE ADDRESS UHERE THE RESULT WILL BE STORED 

GET THE MASK OF THE INCORRECT BITS 

GET THE COUNT OF ITEMS TO BE STORED 

POINT TO WHERE MAIN LINE PROGRAM WILL KSWE 

INITIALIZE THE ASCII TO OCTAL RESULT WORD 

POINT TO THE INPUT BU C FER 

IS THIS CHARACTER A CARRIAGE RETURN? 

IF SO, PRINT THE MESSAGE AGAIN 

IS THIS CHARACTER BELOW THE NUMERIC RANGE? 

IF SO, GO PRINT THE MESSAGE AGAIN 

IS THIS CHARACTER ABOVE THE NUMERIC RANGE? 

IF SO, GO PRINT THE MESSAGE AGAIN 

ISOLATE THE NUMBER THE CHARACTER REPRESENTS 

CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 

IS THE NEXT CHARACTER A CARRIAGE RETURN? 

IF SO, GO SEE IF NUMBER IS WITHIN LIMITS 

CLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 

CLEAR POSH I ON 1, MOVE STRING TO LEFT AGAIN 

MOVE THE STRING ONE MORE TIME TO MAKE RuOM FOR 

NEXT THREE BITS 

GO GET THE NEXT CHARACTER 

.THERE WAS AN ERROR.., GO PRINT MESSAGE AGAIN 

,TRY GETTING THE PARAMETERS AGAIN 



;TEST TO SEE 17 NUMBER IS WITHIN LIMITS 



LIMITS: CMP 

BWJ 

CMP 
BLO 
BITS 

BNE 



R5,HILIM 

PARERR 

R5A0LIM 

PARERR 

L06ITS,R5 

PARERR 



DOES RESULT EXCEED ITS M<>XIMUM CORRECT VALUE? 

IF YES, GO PRINT THE MESSAGE AGAIN 

IS THE RESULT LOWER THAN ALLOWED? 

IF YES, GO PRINT THE MESSAGE A6AIN 

ARE ANY INCORRECT BITS SET IN THE RESULT? 

IF SO, 30 PRINT THE MESSAGE AGAIN 



;ST0RE NUKBER AT SPECIFIED ADDRtSS 



1$: 



MOV 

MOV 

ADD 

DEC8 

BNE 

MOV 

MOV 

RTI 



LOLIM: 

HILIM: 

DEVADR: 

L06ITS: .BYTE 

ADRCNT: ,BYTE 



DEVADR P R4 

R5,(R4)+ 

#2,RS 

ADRCNT 

1$ 

(SP)+,R4 

(SP) KR5 








POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 

STORE THE RESULT 

rALCULATE THE NEXT DATUM 

REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDLD? 

IF NOT, GO STORE THE NEXT DATUM 

RESTORE R4 

RLSTORE Rr 

RETURN TO THE MAIN PROGRAM 

LOWEST ACCEPTABLE VALUE 

HIGHEST ACCEPTAOLE 

LOCATION WHERE RESULT WILL 8C STORED 

INCORRECT 81 TS MASK 

COUNT OF ITEMS TO BE STORED 



;SAVE PC OF TEST THAf FAILED AND R0-R5 
006040 016637 000004 001404 .SAV05: MOV 4(SP),SAVPC ;SAVE R7 (PC) 
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K 4 



SEQ 0049 



006046 
006052 
006056 
006062 
006066 
006072 
006076 



006100 
006104 
006110 
006114 
006120 
006124 
006130 



006132 
006136 
006140 
006142 
006144 
006146 
006150 
006154 
006162 
006166 
006170 
006172 
006174 
006200 
006202 
006206 
006212 
006214 
006216 
006220 
006222 

006224 
006226 
006252 
006234 
006240 
006242 
006244 
006246 
006252 
006254 
006256 



010537 
010437 
010337 
010237 
010137 
010037 

oooop- 



013700 
013701 
013702 
013703 
013704 
013705 
000002 



104402 
010046 
010146 
010346 
010446 
010546 
017601 
062766 
012137 
112105 
112100 
013104 
11053/ 
010403 
042703 
062703 
110346 
006004 
006204 
006204 
005305 

001365 
012703 
112623 
105337 
001374 
105700 
001404 
1 12723 
105300 
001374 
105013 



001340 
001336 
001334 
001332 
001330 
001326 



001326 
001330 
001332 
001334 
001336 
001340 



001357 



000012 
000002 
006306 



006310 

177770 

000060 



010510 
006310 

000040 



;SAVE R0-R5 



SV05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTJ 



R5,SREG5 
R4,$REG4 
R3,$REG3 
R2,$REG2 
R1.SREG1 
RO.SREGQ 



;SAVE 
;SAVE 
;SAVE 
;SAVE 
;SAVE 
;SAVE 



R5 
R4 
R3 
R2 
R1 
RO 



.•RESTORE R0-R5 



RES05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTJ 



$REGO,RO 
$REG1,R1 
$REG2,R2 
$REG3,R3 
SREG4.R4 
$REG5,R5 



; LEAVE. 



.♦RESTORE 
;RESTORE 
.♦RESTORE 
.♦RESTORE 
.•RESTORE 
.•RESTORE 
; LEAVE 



RO 
R1 
R2 
R3 
R4 
R5 



.•CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 



.CONVR: 


type 


. CN VRT; 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 


000012 


ADD 




MOV 


1$: 


M0V8 




M0V8 




MOV 




movb 


3$: 


MOV 




BIC 




ADD 




MOVB 




ROR 




ASR 




ASR 




DEC 




BNE 




MOV 


4$; 


M0V6 




DECS 




BNE 




TST8 




BEO 


5$: 


MOVB 




DECS 




BNE 


6$: 


CLRB 



,$CRLF 

RO.-(SP) 

R1 -(SP) 

R3.-(SP) 

R4,-(SP) 

R5.-CSP) 

ai$(SP),R1 

#2J2(SP) 

(R1)4,WRDCNT 

(RD + .R5 

(RD + .RO 

3<R1)+.R4 

R5.CHRCNT 

R4.R3 

# A i<7>,R3 

#060. R3 

R3,-(SP> 

R4 

R4 

R4 

R5 

3$ 

#MDATA,R3 

<SP)*,<R3H 

CHRCNT 

4$ 

RO 

6$ 

#040,(R3)+ 

RO 

5$ 

(R3) 



PRINT A CARRIAGE RETURN 

SAVE RO 

SAVE R1 

SAVE R3 

SAVE R4 

SAVE R5 

PLACE THE ADDRESS OF THE ARGUMENTS IN R1 

POINT TO WHERE MAIN PROGRAM WILL RESUME 

GET NUMBER OF WORDS TO BE PRINTED 

GET THE NUMBER OF CHARACTERS TO BE PRINTED 

GET THE NUMBER OF SPACES TO PRINT 

COPY THE WORD TO BE CONVERTED 

COPY THE CHARACTER COUNT 

COPY THE ARGUMENT WORD AGAIN 

ISOLATE THREE BITS TO BE TREATED AS A CHARACTER 

MAKE AN ASCII CHARACTER OUT OF THEM 

SAVE THAT CHARACTER 

MOVE THE NEXT THREE BITS INTO PLACE 

MOVE THEM AGAIN 

AND FINALLY A THIRD TIME 

REDUCE CHARACTER COUNT.ARE ALL CHARACTERS 
BUILT? 

IF NO. GO BUILD THE NEXT ONE. 

NOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 

STORE THE CHARACTER. STARTiNG WITH THE MOST 

REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 

IF NO. GO TRANSFER ANOTHER 

ARE ANY SPACES TO BF PRINTED? 

IF NO. DON'T SET UP ANY 

ADD A SPACE TO THE OUTPUT BUFFER 

REDUCE THE COUNT, SHOULD WE PRINT MORE? 

IF YES. GO ADD ANOiHER SPACE 

TERMINATE THE OUTPUT BUFFER WITH A ZERO 
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L 4 



SEQ 0050 



006260 
006264 
006270 
006272 
006274 
006276 
006300 
006302 
006304 
006306 
006310 
006311 



104402 
005337 
001336 
012605 
012604 
012603 
012601 
012600 
000002 
000000 
000 
000 



006312 000000 



010510 
006306 



WRDCNT: 
CHRCNT: 
SPACNT: 



TYPE 

DEC 

BNE 

MOV 

MOV 

MCV 

MOV 

MOV 

RTI 



.BYTE 

.BYTE 



,MDATA 
UrfDCNT 
1$ 

(SP) + , R5 
<SP) + ,R4 
(SP) +.R3 
<SP) + ,f<1 
(SP)+, RO 







PRINT THE STRING WE JUST BUILT 

REDUCE THE WURD COUNT. ARE ANY MORE WORDS 

IF YES, GO CONVERT THEM 

RESTORE R5 

RESTORE R4 

RESTORE RJ 

RESTORE R1 

RESTORE RO 

RETURN TO THE MAIN PROGRAM 



EFT? 



;NUMBER OF CHARACTERS TO PRINT 
;NUM8ER OF SPACES TO PRINT 



BINWRD: 



;TRAP DISPATCH SERVICE 
.■ARGUMENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 
;T0 SELECTED SUBROUTINE 



006314 010046 

006316 016600 000002 

006322 005740 

006324 111000 

006326 006300 

0063 JO 016000 001742 

006334 000200 



006336 

006336 052777 000020 

006344 032777 000020 

006352 001374 

006354 000002 



006356 104413 

006360 153777 001424 

006366 000002 

006370 

006370 010046 

006372 013700 006406 

006376 005300 

006400 001376 

006402 012600 

006404 000002 

006406 000001 



.JRPSR; MOV 
MOV 
TST 
M0V8 
ASL 
MOV 
RTS 



RO.-(SP) ;SAVE RO. USE RO TO FIND TRAP ROUTINE 

2(SP),R0 ;GET TRAP ADDRESS 

-(RO) ;GET TRAP 

<RO),RO ;GET RIGHT BYTE OF TRAP(TRAP OFFSET) 

RO^ .'POSITION OFFSET FOR TABLE INDEXING 

..RPTAB(RO),RO ;PLACE INDEXED ADDRESS OF TABLE IN RO 

RO ; TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 



DEVICfc* CLEAR ROUTINE 
ISSUE A DEVICE CLEAR 



173444 
173436 



.DEVICE. CLR: 
BIS 

1$: BIT 
BNE 
RTI 



#DCLR,aDZVCSR 
*DCLR,8DZVCSR 
1$ 



SET DCLR 
DID IT CLEAR? 
BR IF NO 
EXIT ROUTINE 



.-ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 



173422 



.dclasm:6evice,clr 

bisb mntflg.sdzvcsr 

RTI 



.DELAY: 



1$: 



DLYCNT: 



MOV 
MOV 
DEC 
BNE 
MOV 
RTI 
.WORD 



RO. -(SP) 

DLYlNT.RO 

RO 

1$ 
(SP)*, RO 

1 



.-ISSUE A DEVICE CLEAR 

;LOAD THE MAINTENANCE BIT IF IT IS I MODE 

.-RETURN TO CALLING ROUTINE 



!>AVE RO 
SET COUNT 
DELAY 



RESTORE RO 

LEAVE ROUTINE 

PATCHABLE LOC FOR MORE TIME 



.•ADVANCE )0 NEXT TEST HANDLER 
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SEQ 0051 



006410 013716 001362 
006414 005037 001364 
006420 000002 



006422 106302 

006424 032702 000020 

006430 001402 

006432 022626 

006434 104400 

006436 000002 



.ADVANCE tMOV 
CLR 
RTJ 



NEXT.(SP) 
LOCK 



;CRUNCH STACK WITH ADDRESS OF SCOPE CALL 

;RESET TIGHT LOOP ADDRESS 

; CHECK TO SEE IF OLD TEST GETS REPEATED 



;ROUTINE TO SHIFT LINE POINTER 
;AND SU1TQH TESTS IF NECESSARY 



.SHIFT; ASL8 
8IT 
BEQ 

P0P2SP 
ADVANCE 

1$: RTI 



R2 

*BIT4.R2 

1$ 



;P0INT TO THE NEXT LINE 

;HAVE WE PASSED ALL LINE POINTERS? 

:IF NOT, RETURN TO THE TEST 

/REMOVE THE TRAP CALL FROM THE STACK 

;G0 TO THE NEXT TEST 

;RETURN TO THE PRESENT TEST 



_ J 
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N 4 



SEQ 0052 



006440 
006442 
006444 
006450 
006454 
006460 
006462 
006464 
006470 
006472 
006474 
006476 



006500 
006502 
006506 
006510 
006514 
006516 
006520 



006522 
006526 
006534 
006536 
006542 
006544 
006552 
006560 
006562 
006566 
006570 
006574 
006600 
006602 
006604 
006610 
006612 
006616 
006620 
006622 
006624 
006630 
006634 
006640 
006644 
006650 
006654 
006656 



010146 
010246 
013701 
012702 
010177 
005201 
106302 
032702 
001771 
012602 
012601 
000002 



010046 
012700 
005020 
022700 
001374 
012600 
000002 



004737 
032777 
001406 
105777 
100003 
112777 
032777 
001113 
021637 
001404 
011637 
105037 
104407 
011605 
162705 
011504 
110437 
006304 
061504 
006304 
042704 
062704 
012437 
012437 
011437 
105737 
001403 
005737 



001370 
000001 
173340 



000020 



001426 
001446 



007150 
010000 

172552 

000207 
020000 

001262 

001262 

001247 



000002 
001260 



177001 
016122 
006760 
006772 
007004 
001247 

007004 



;LINE PARAMETER REGISTER SETUP ROUTINE 



.LPRSET;MOV 
MOV 
MOV 
MOV 

1$: MOV 
INC 
ASL8 
BIT 
8EQ 
MOV 
MOV 
RTJ 



R1 ,-<SP) 
R2,-(SP) 

PAR,R1 

*1,R2 ;INIT. 

R1,9DZVIPR 

R1 

R? 

0BIT4, R2 

1$ 

(SP)+,R2 

(SP)+, R1 



;SAVE CONTENTS OF R1 
;SAVE CONTENTS OF R2 
;'10VE DEFAULT PARAM. INTO R1 
FOR LINE 1 
;'.OAD PARAM, REGISTER 
;SH R1 FOR NEXT LINE 
;SE* R2 FOR NEXT LINE 
;ALL LINES DONE? 
;1F NO LOAD NEXT LINE 
;RELOAD R2 
;RELOAD R1 
.-RETURN 



;RUUTINt TO ZERO DATA BUFFER 



.BUFSET:MOV 
MOV 

1$: CLR 
CMP 
BNE 
MOV 
RTI 



172550 



172544 
172524 



XBX: 



1$; 



RO, -<SP) 
#fD0,RO 
(R0) + 
*STOP,R0 
1$ 
(SPH, RO 



; ERROR HANDLER 



$ERROR; JSR 
BIT 



1SJB 

BPL 

Move 

BIT 

BNE 

CMP 

BEG 

MOV 

CLRB 

SAV05 

MOV 

SUB 

MOV 

MOVB 

ASL 

ADD 

ASL 

BIC 

ADO 

MOV 

MOV 

KOV 

TSTB 

BEO 

TST 



PC,SERV.G 
■fSUn.iSUR 

X8X 

asms 

XBX 

#207 A a$TP8 

#swi3,aswR 

HALTS 

(SP). SERRPC 

1$ 

(SP) , SERRPC 

SERFLG 

(SP>,R5 

#2,R5 

(R5),R4 

R4, SI TEMB 

R4 

(R5)„R4 

R4 

#177001, R4 

*.ERRTAB,R4 

(R4)+,ERRMSG 

(R4)+,DATAHD 

(R4),DATABP 

SERFLG 

;vpnsg 

DATABP 



SAVE CONTENTS OF RO 

SET RO TO TOP OF BUFFER 

CLEAR BUFFER LOCATION 

IS BUFFER ALL CLEARED 

If NOT CLEAR NEXT LOCATION 

RELOAD RO 

RETURN 



FIND OUT IF < A G> WAS KIT 

BELL ON ERROR? 

BR If NO BELL 

TTY READY. 

DON'T WAIT IF TTY NOT READY. 

PUSH A BELL AT THE TTY. 

DELETt ERROR PRINT OUT? 

BR IF NO PRINT OUT WANTED. 

WAS THIS ERROR FOUND LAST TIME? 

BR IF YES 

RECORD BEING HERE 

PREPARE HEADER 

SAVE ALL PROC REGISTERS 

GET THE PC OF ERROR 

GET ADDRESS OF TRAP CALL 

GET ERROR INSTRUCTION 

COPY TEST NUMBER FOR APT HANDLING 

MULT BY TWO 

DOUBLE IT 

MULT AGAIN 

CLEAR JUNK 

GET POINTER 

GET ERROR MESSAGE 

GET DATA HEADRER 

GET DATA TABLE 

TYPE HEADER 

BR IF YES 

DOES DATA TAP . EXIST? 



CVD 
CVD 
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PAGE 25-34 
COMMUNICATIONS ROUTINE 



B 5 



SEQ 0053 



006662 
006664 
006670 
006674 
006700 
006702 
006706 
006712 
006716 
006722 
006726 
006732 
006736 
006742 
006750 
006754 
006756 
006760 
006762 
006762 
006766 
006770 
006772 
006774 
007000 
007002 
007004 
007006 
007010 
007016 
007020 
007026 
007032 
007034 
007036 
007044 
007046 
00705? 
007054 
007062 
007064 
007070 
007074 
007102 
007104 
007112 
007114 
007122 
007126 
007132 
007134 
007136 
007140 
007142 
007144 
"07146 



001044 
104402 
104402 
005737 
001402 
104402 
104402 
104412 
104402 
104412 
104402 
104412 
104402 
112737 
005737 
001402 
104402 
000000 

005737 
001402 
104402 
000000 
005737 
001402 
104411 
000000 
104410 
122737 
001007 
113737 
0C4737 
000000 
000777 
022737 
001403 
005777 
100004 
016677 
000000 
005237 
004737 
032777 
001007 
032777 
001407 
013737 
012706 
000177 
000002 
000001 

006 
001404 
000001 

002 
001246 



001357 
001357 
001364 

010063 
010051 
007142 
010143 
007134 
010013 
004354 
00(357 
^77777 
006760 



006772 



007004 



000001 

001260 
005264 



004340 

\72212 

000002 

001256 
007150 
000400 

002000 

001362 
001120 
172120 

002 

002 



001247 



001140 
007U32 



172224 

172202 
172172 
001252 



TYPH56J 



IS: 



EffflMSG: 

WT8S.FM 



DATAHD: 
TYPDAT: 



DATABP: 
RFSREG: 
HALTS: 



5$: 
10$: 



BNE 

TYPE 

TYPE 

TST 

BEQ 

TYPE 

TYPE 

CNVRT 

TYPE 

CNVPJ 

TYPE 

CNVRT 

TYPE 

MOVB 

TST 

BEQ 

TYPE 





000042 15$: 



20$- 
EXITER: 



1$: 

tt: 

ERTABO: 



XTSTN: 



TYPDAT 

.SCRLF 

,$CRLF 

LOCK 

1$ 

,MASTEK 

,MTSTN 

, XTSTN 

,MERRPC 

, ERTABO 

MSM 

,XCSR 

,$CRLF 

M.SERFLG 

ERRMSG 

WT8S.FM 



TST 


DATAHD 


BEO 


TYPDAT 


TYPE 









TST 


DATABP 


BEQ 


RESREG 


CONVRT 









RES05 




CMPB 


#APTENV,$ENV 


BNE 


15$ 


MOVB 


$ITEMB,5$ 


JSR 


PC,$ATY4 


.WORD 





BR 


10$ 


CMP 


#$ENDAD,S*42 


BEQ 


20$ 


TST 


dSWR 


BPL 


EXITER 


Moy 


2(SP), 9DISPLAY 


HALT 




INC 


$ERTTL 


JSR 


PC.fEAV.G 


BIT 


#swl8,aswR 


BNE 


1$ 


BIT 


#swio,aswR 


BEQ 


2$ 


MOV 


NEXT # $LPADR 
#STACK,SP 


MOV 


JMP 


WLPADR 


RTI 

1 

.BYTE 




6,2 


SAVPC 

1 

.BYTE 




2,2 


STSTNM 





'BR IF YES 

•TYPE A CARRIAGE RETURN 

;AND TYPE ANOTHER 



;SHOW IT 
;TYPE PC. 
;SHOW IT 



GIVE A CR/LF 

NO MORE HEADER UNLESS NO DATA TABLE. 

IS THERE AN ERROR MESSAGE? 

BR IF NO. 

TYPE 

ERROR MESSAGE 

DATA HEADER? 
BR IF NO 
TYPE 

DATA HEADER 
DATA TABLE? 
BR IF NO. 
SHOW 

DATA TABLE 
HES10RE PROC REGISTER! 
IS APT RUNNING? 
SKIP APT CALL IF NOT 
COPY ERROR NUMBER 
CALL APT SERVICE 
ERROR NUMBER STUCK HERE 
LOCK UP HERE 

CHECK TO SEE IF IN ACT-11 MODE 
IF SO, HANDLE ACCORDINGLY 
HALT ON ERROR? 
BR IF NO HALT ON ERROR 
SHOW ERROR PC IN DATA DISPLAY 
HALT 

UPDATE ERROR COUNT 
FIND OUT IF *G WAS TYPED 
GOTO TCP OF TEST? 
BR IF YES 
GOTO NEXT TEST? 
BR IF NO 

SET FOR NEXT TEST 
RESET SP 

GOTO SPECIFIED TEST 
RETURN 
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172136 
000200 
000007 



11:08 PAGE 25-35 

APT COMMUNICATIONS ROUTINE 



C 5 



(1) 007150 


017746 


(1) 0071 54 


042716 


(1) 007160 


122726 


(1) 0071o4 


001076 


(1) 007166 


032777 


(1) 007174 


001365 




007176 


(1) 007176 


017737 


(1) 007204 


104402 


(1) 007210 


104412 


(1) 007214 


104402 


(1) 007220 


105037 


(1) 007224 


005077 


(1) 007230 


105777 


(1) 007234 


100375 


(1) 007236 


017746 


(1) 007242 


042716 


(1) 007246 


122726 


(1) 007252 


001433 


(1) 007254 


105777 


(1) 007260 


100375 


(1) 007262 


105237 


(1) 007266 


014677 


(1) 007272 


000241 


(1) 007274 


006177 


<1) 007300 


006177 


(1) 007304 


006177 


(1) 007310 


103735 


(1) 007312 


022627 


(1) 007316 


002732 


(1) 007320 


026627 


(1) 007326 


003326 


(1) 007330 


042746 


(1) 007334 


052677 


(1) 007340 


000733 


(1) 007342 


105737 


(1) 007346 


001003 


(1) 007350 


013777 


(1) 007356 


104402 


(1) 007362 


000207 


(1) 007364 


020200 


(1) 007400 


000001 


006 


(1) 007402 


007404 


(1) 007404 


000000 


(1) 007406 


036457 


(1) 007412 


000 


(2) 
(2) 


007414 


(3) 
(2) 
(2) 007414 


012737 


(2) 007422 


012737 



004000 



172102 
007364 
007376 
007406 
007412 
172054 
172054 

172050 
000200 
000015 

172034 

007412 
172024 

172004 
172000 
171774 

000060 

177776 

177770 

171744 

007412 

007404 
001357 



051450 

000 

000057 



172114 
007404 



GETSWR= 
1$: 



3$: 



2$: 



000067 



171726 
051127 



4$: 



5$: 
6$: 

89$: 

.MEN 
8B$i 



90$ 

91$ 

92$ 

.EVEN 

.SBTTL 



SEQ 0054 



MLV 


3$TKB,-(SP) 


BIC 


#8IT7,(SP) 


CMP8 


#7,(SP)+ 


BNE 


6$ 


BIT 


*4000,a$TKS 


BNE 


SERV.G 


MOV 


aswR,90$ 


TYPE 


,89$ 


CNVRT 


,88$ 


TYPE 


,91$ 


CLRB 


$2$ 


CLR 


asuR 


TST8 


a$TKS 


BPL 


3S ; 


MOV 


a$iKB,-(SP) 


BIC 


#BIT7,CSP) 


fMPB 


*15,(SP)+ 


BEG 


4$ 


TSTB 


a$TPS 


BPL 


2$ 


INCB 


92$ 


MOV 


-(SP), SSTPB 


CLC 




ROL 


aSWR ; 


ROL 


aswR 


ROL 


aswR 


8CS 


1* 


CMP 


(SP) + ,*6Q 


BLT 


1* 


CMP 


-2<SP),#67 


BGT 


is 


BIC 


#*C<7>,-<SP) 


BIS 


(sp)+, aswR 


BR 


3$ 


TSTG 


92$ 


BNE 


5$ 


MOV 


90$,aSWR 


TYPE 


,$CRLF 


RTS 


k 


.ASCIZ 


<200>? <SWR>=/? 


1 
,6YTE 


6,0 


90$ 




.WORD 





•ASCIZ 


?/=/? 


.BYTE 






OTHERWISE, GET THE LAST CHARACTER TYPED 

STRIP PARITY(EIGHTH) BIT 

IS IT *G? 

IF NOT, IGNORE INPUT 

RX BUSY? 

BR IF YES 

;;gpa 

SAVE (SWR) 

TYPE HEADER FOR OLD SWITCH REGISTER 

TYPE THE NUMBER ITSELF 

AFTER HAVING CONVERTED IT TO ASCII 

CLEAR SWR CHANGE FLAG 

CLEAR THE SOFTWARE SWITCH REGISTER 

WAIT FOR DONE. 

CONTINUE WAITING FOR IT 

PUT THE CHARACTER ON THE STACK 

STRIP PARITY BIT 

IS IT THE CARRIAGE RETURN CHAR? 

IF SO, GO PRWT CRLF 

IS THE OUTPUT BUFFER AVAILABLE 

IF NOT, WAIT FOR IT TO BE READY 

INDICATE THAT THE SWR WAS CHANGED 

PLACE THE CHARACTER THERE (ECHO BACK) 

GET READY TO ROTATE 

MOVE THE EXISTING BITS OVER 

TO MAKE ROOM FOR THE INCOMING 

THREE BITS FROM THIS CHARACTER 

ERROR 

IS IT LOWER THAN 0? 

IF SO, GO ASK AGAIN 

IS IT HI6HFR THAN 71 

IF SO, GO ASK AGAIN 

ISOLATE INFORMATION BITS 

ADD THEM TO THE SWITCH REGISTER 

GO CHECK FOR THE NEXT CHARACTER 

HAS THE SWR BEEN CHANGED? 

IF YES GO TYPE CRLF 

IF NOT RESTORE SWR 

TYPE A CARRIAGE RETURN AND LINE FEED 

RETURN TO CALLING PROCEDURE 



POWER DOWN AND UP ROUTINES 



007560 
000340 



000024 
000026 



; **************************************************************** 

;POWER DOWN ROUTINE 

SPWRDN: MOV WLLUP,a*PWRVEC ;:SET FOR FAST UP 

MOV M40,a*PWRVEC+2 ;;falO:7 



CVDZA-C MACY11 306(1063) 10-AUG-81 

CVDZAC.P11 10-AU6-81 10:55 



(4) 007430 

(4) 007432 

(4) 007434 

(4) 007436 

(4) 007440 

tt> 007442 

(4) 007444 

(?) 007450 

(2) 007454 

(2) 007462 

(2) 007464 
(2) 
(3) 
(2) 

<2> 007466 

(2) 007474 

(2) 007500 

(2) 007504 

(2) 007510 

(4) 007512 

(4) 007516 

(4) 007520 

(4) 007522 

(4) 007524 

<4> 007526 

(4) 007530 

(2) 007532 

(2) 007540 

(2) 007546 

(2) 007550 

(2) 007552 

(2) 007554 

(2) 007556 

(2) 007560 

(2) 007562 

<2) 007564 

(2) 007566 

<2) 007631 

(2) 007655 

(2) 007671 

(2) 007740 

(2) 007764 

(2) 010013 

(2) 010021 

(2) 010027 

(2) 010040 

(2) 010051 

(2) 010063 

(2) 010066 

(2) 010143 

(2) 010150 

(2) 010176 
(2) 

(!) 010240 

(2) 010242 

(2) 010244 



010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



012737 

013706 

005037 

005237 

001375 

012677 

012605 

012604 

012603 

0126C2 

012601 

012600 

012737 

012737 

104402 

007566 

012716 

011112 

000002 

000000 

000776 

000000 

050200 

200 

200 

200 

044600 

046200 

103 

126 

120 

051105 

124 

052 

052200 

120 

046600 

044600 

000002 

006 

001344 



171634 
007564 
007466 



007560 
007564 
007564 
007564 

171566 



007414 
000340 



t 



051127 
047105 
052522 
051120 
51516 
41517 
051123 
041505 
051501 
047522 
051505 
000040 
050131 
035103 
050101 
046114 



003 



000024 



11:08 PAGE 25-36 

POWER DOWN AND 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



D 5 



UP ROUTINES 



SEQ 0055 



RQ,-(SP) 
R1, -<SP> 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP> 

aswR,-<sp> 

SP,$SAVR6 
0$PWRUP,3*PWRVEC 

.-2 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

;PUSH R2 ON STACK 

;PUSH R3 ON STACK 

;PUSH R4 ON STACK 

;PUSH R5 ON STACK 
;PUSH SSWR ON STACK 
;SAVE SP 

;;SET UP VECTOR 



;;HANG UP 



000024 



000024 
000026 



043040 
020104 
047116 
043517 
043125 
020113 
020072 

mn 

051522 
020124 

020105 

m 

043505 



;;****! 

:POWER 
$PWRUP 



1$; 



r*** ************************************* ******* *********** 

UP ROUTINE 



tPWRMG 

SPWRAu, 

SttLUP 

SSAW16 

MPFAIL 

MEPASS, 

MR: 

MERR2: 

MERR3: 

MLOCK: 

MCSRX: 

MVECX: 

MPASSX; 

MERRX: 

MTSTN: 

MASTEK 

KNEW: 

MERRPC 

XHEAD: 

M6ADLN 

.EVEN 

XSTATQ 



MOV 

MOV 

CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WORD 

MOV 

.WORD 

RTI 

HALT 

BR 



.ASCII 

.A^nz 

.ASCiZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

2 

.8YTE 
$TMP1 



#>iLLUP.a*PWRVEC 

$SAVR6,SP 

SSAVR6 

SSAVR6 

1$ 

<SP)+, 3SWR 

(SP)+, R5 

<SP)+,R4 

(SP)+, R3 

<SP)+, R2 

<SP)+, R1 

<SP)*,RO 

#$PWRDN,a#PWRVEC 

*340,a*PWRVEC+2 

MPFAIL 

(PC)+,(SP> 

RESTART 



.-2 



;SET FOR FAST DOWN 

GET SP 

WAIT LOOP FOR THE TTY 

WAIT FOR THE INC 

OF WORD 

POP STACK INTO 8SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

RESTART AT RESTART 

RESTART ADDRESS 



THE POWER UP SEQUENCE WAS STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 
RESTART AT LAST TEST / 
/ 



<200>/PWR FAILED. ... 
<200>/END PASS CVDZA-C 
<200>/RUNNING / 
<200>/PROGRAM INDICATES NO DEVICES PRESENT./ 
<200>/INSUFFICIENT DATA!/ 
<200>/L0CK ON SELECTED TEST/ 
/CSR: / 
/VEC: / 
/PASSES: / 
/ERRORS: / 
/TEST NO: / 
/* / 

<200>/TYPE A 
/PC: / 

<200>/MAP OF 

<200>/ILLEGAL ENTRY IN STAGGERED M0DE/<200> 



6,3 



BIT MAP OF DZVU'S DESIRED ACTIVE: / 
DZV11 STATUS/<200> 
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11:08 PAGE 25-37 
POWER DOWN AND 



E 5 



UP ROUTINES 



SEQ 0056 



(2) 
(2) 
(1) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2> 
(2) 



010246 006 

010250 001 346 



010252 
010256 
010264 
010272 
010274 
010300 
010304 
010306 
010314 
010316 
010322 
010330 
010332 
010340 
010342 
010346 
010352 
010356 
010360 
010362 
010364 
010366 
010370 



017605 
042737 
122737 
001005 
013715 
105037 
000422 
122737 
001006 
013715 
112737 
000410 
122737 
001007 
013715 
105037 
062716 
000002 
104404 
000733 
000200 
000000 
100000 



002 



000000 
000040 
000105 

010364 
001424 



010366 
000010 

000123 

010370 
001424 
000002 



• EVEN 



.BYTE 6,2 
$TMP2 

THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 



010446 
010446 



,SETFLG;MOV 
BIC 



000111 010446 4$: 



001424 
010446 



5$; 



7$: 

6$: 

1$: 
2$: 
3$: 



E=EXTERNAL LOOP BACK 
I=INTERNAL LOOP BACK 
S=STAGGERED LOOP BACK 
3(SP),R5 

*40,INBUF 

*'E,JNBUF 
4$ 

1$,(R5) 

MNTFLG 

7$ 

f'MNBUF 

5$ 

?$,<ft5> 

rfMAINT, MNTFLG 

rSJNBUF 

6$ 

3$,(R5> 

MNTFLG 

«,<SP) 



CMPB 

BNE 

MOV 

CLRB 

BR 

CMPB 

BNE 

MOV 

MOVB 

BR 

CMPB 

BNE 

MOV 

CLR8 

ADD 

RTI 

INSTER 

BR 

.WORD 

.WORD 

.WORD 



.SETrLG 

200 



100000 



PICK UP ADDRESS OF TAG 

STRIP LOWER CASE 

IS IT EXTERNAL LOOP BACK ? 

NO 

YES STORE INFO 

SET MAINT BIT =0 

GET OUT 

IS IT INTERNAL LOOP BACK ? 

NO 

YES STORE INFO 

SET UP THE MAINTENANCE FLAG LOADER 

GET OUT 

IS IT STAGGERED LOOP BACK ? 

WHAT ' 

YES STORE INFO 

ZERO BITS 

POP AROUND 

; RETRY 

;DITTO 

; EXTERNAL - E 

.•INTERNAL = I 

.-STAGGERED = S 



000000 
000040 
000105 



010446 
010446 



000103 010446 1$: 
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(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



11:08 PAGE 25-38 
POWER DOWN AND 



F 5 



UP ROUTINES 



010372 
010376 
010404 
010412 
010414 
010416 
010420 
010426 
010430 
010434 
010440 
C10442 
010444 



010446 



010510 



017605 
142737 
122737 
001002 
105015 
000406 
122737 
001005 
112715 
062716 
000002 
104404 
000752 



000000 
010510 



000000 
010552 



\77777 
000002 



SEQ 0057 



; COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
;8UFfER TO THE CHARACTERS °E M AND M C M . 
;1F THE CHARACTER IS "E" CLEAR THE FLAG 
;1F THE CHARACTER IS M C H SET THE FLAG 



.PAWCH:M0V 

BICB 

CMP8 

BNE 

CLRB 

BR 

CMP8 

ONE 

MUVB 

ADD 

RT1 

INSTER 

BR 



2$: 
3$: 



9(SP),R5 

#40,IN3UF 

**E,INBUF 

1$ 

(R5) 

2$ 

rCJNBUF 

3$ 

#-1,<R5) 

02,(SP> 



.PAWCH 



;SET FOR LOWER CASE INPUT 
;1S IT "E" ? 

;000 

;JS IT "C" ? 

;31 77 

;RETRY 



;B'JFFERS FOR INPUT-OUTPUT 



IN8UF: 
.=.+40 
; TEMP: 
; .-.+40 
MDATA: 
.=.+40 



TEMP AREA UNUSED. 
DELETED TO CONSERVE SPACE 



; ; gpa 
;;GPA 



CVDZA-C NACY11 30GC1063) 10-AUG-81 11:08 PAGE 25-39 

CVDZAC.P11 1C-AU6-81 10:55 POWER DOWN AND UP ROUTINES 



SEQ 0058 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2> 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2> 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(2) 



010552 
010556 
010560 
010564 
010566 
010570 
010576 

o06 
ui0612 
010616 
010624 
010632 
010634 
010642 
010644 
010650 
010654 
010660 
010666 

010674 
010676 
010704 
010710 
010714 
010720 
1 0724 
010730 
010734 
010740 
010742 
010750 
010754 
010760 
Q 1 0762 
010770 
010772 
010776 
G11000 
011002 
011004 
011006 
011010 
011012 
011013 
011014 



005737 
001004 
104402 
000000 
000776 
013737 
033737 
001017 
006137 
005537 
062737 
022737 
001356 
012737 
000752 
006137 
005537 
013700 
062737 
022737 

001003 
012737 
012037 
012037 
012037 
012037 
012037 
10*037 
005737 
001003 
112737 
004737 
005737 
001051 
032777 
001445 
104402 
104403 
010051 
104405 
Q00Q01 
001000 
001246 
000 
001 
012700 



001406 
007671 



004646 
001412 

001412 
001412 
000012 
001740 



001412 
001412 
001420 
000012 
001740 



001500 
001174 
002040 
001366 
001370 
001372 
001424 
001372 

000010 
011116 
000042 

000002 

001357 



CYCLE: 



001354 1$: 
001406 



001420 
001420 



001500 001420 



2$: 



001420 
001420 



001420 



3$: 



001424 



170314 



9$: 



4$: 



ROUTINE USED TO "CYCLE" THROUGH UP TO SIXTEEN D2V1VS 
THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
AND RUNS THE SPECIFIED DZVU'S. THIS ROUTINE *MUST* 
BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR Th\E 
SETUP NECESSARY. 



012112 



TST 

BNE 

TYPE 

HALT 

BR 

MOV 

BIT 

BNE 

ROL 

ADC 

ADD 

CMP 

BNE 

MOV 

BR 

ROL 

ADC 

MOV 

ADD 

CMP 

BNE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLRB 

TST 

BNE 

MOVB 

JSR 

TST 

BNE 

BIT 

BEQ 

TYPE 

INSTR 

MTSTN 

PARAM 

1 

1000 

STSTNM 

.BYTE 

.BYTE 

MOV 



DZVACTV 

1$ 

,MCRR2 

.-2 

SMXCNT, STHES 

RUN, DZVACTV 

2$ 

RUN 

RUN 

*12, ACTIVE 

*DZV.END,ACTIVE 

1$ 

#DZV. MAP,ACTIVE 

1$ 

RUN 

RUN 

ACTIVE, RO 

#12,ACTIVE 

#W. END, ACTIVE 



ARE ANY DZVU'S TO BE 7ESTED? 

BR IF OK. 

NO DZVU'S SELECTED. 1 ! 

STOP THE SHOW. 

DISQUALIFY CONT. SW. 

RESTORE THE NUMBER OF ITERATIONS TO MAKE 

IS THIS ONE ^ACTIVE' 9 

BR If GOOD ONE FOUND. 

UPDATE POINTER 

CATCH CARRY FROM RUN 

UPDATE ADDRESS POINTER, 

HAVE WE PASSED THE END OF THE MAP? 

IF NO, KEEP GOING; NOT ALL TESTED FOR. 

RESET ADDRESS POINTER. 

KEEP LOOKING FOR ACTIVE DZV11 

UPDATE POINTER. 

CATCH CARRY. 

GET ADDRESS POINTER. 

UPDATE. 



3$ 

*DZV. MAP, ACTIVE 

(ROH.SBASE 

(RO)+,DZVRIV 

(R0) + ,LINi2 

(RO)+,PAR 

(RO)+,MODE 

MNTFLG 

MODE 

9$ 

*MAINT, MNTFLG 

PC.DZVLEV 

7$ 
#SW01,aSUR 

,$CRLF 



ALL DONE? 

BR IF NO. 

RESTORE POINTER. 

LOAD SYSTEM CTRL. REG 

LOAD VECTOR 

SET UP DZV LINES ACTIVE 

SET UP PARAMETERIZATION 

SET UP MAINTENANCE MODE 
;RESET MAINT. FLAG IF 
;RUNNING TESTS 
;IN 

; INTERNAL MAINT. MODE 
;SET UP 
;ARE WE UNDER MONITOR CONTROL? 




1 



:lf YES, SKIP THIS SETUP 

;lf SWOM, GET STARTING TEST * 

;BR IF NO TEST IS TO BE INPUTTED 

CALL THE STRING INPUT ROUTINE 
POINTER TO MESSAGE TO BE PRINTED 
CALL THE OCTAL TO ASCII CONVERT ROUTINE 
LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
POINTER TO MAP LOCATION TO BE FILLED 
MAJK OF INVALID BITS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 



CVDZA-C MACY11 306(1063) 10-AUG-81 
CVDZAC.P11 10-AUG-81 10:55 



11:08 PAGE 25-40 
POWER DOWN AND 



H 5 



UP ROUTINES 



SEQ 0059 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2 V 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



011020 
011024 
011026 
011034 
011036 
011044 
011046 
011052 
011060 
011064 
011066 
011070 
011074 
011076 
011102 
011104 
011112 
011112 



011116 
011122 
011126 
011132 
011136 
011142 
011146 



011152 
011156 
011162 
011164 
011170 
011172 
011176 
011202 
011204 
011210 
011214 
!16 



011236 
011242 
011244 
011250 
011254 



022710 
001020 
022760 
001014 
023760 
001010 
010037 
062737 
104402 
000412 
005720 
020027 
001351 
104402 
000733 
012737 

000177 



013700 
062700 
010037 
062700 
010037 
062700 
010037 



013700 
010037 
005200 
010037 
005200 
010037 
010037 
005200 
010037 
01003 7 
00 

or 

00! 

0101 

005c 

010037 

010037 

005200 

010037 

010037 

000207 



000004 

012737 

001246 

001252 
000002 
001357 

015570 
001356 
012112 
170134 



002040 
000002 
002042 
000002 
002044 
000002 
002046 



001174 
002010 

002012 

002014 
002020 

002016 
002022 

002024 
002026 

002030 
002034 

002032 
002036 



000002 
000004 



001252 



001252 



5$: CMP 
BNE 
CMP 
BNE 
CMP 
BNE 
MOV 
ADD 

TypE 

BK 

6$: TS"» 
CMP 
BNl 
TYPE 
BR 

7$: MOV 

8$: 

RESTART :JMP 



*4,(R0) 
6$ 

mm. 2cro> 

6$ 

$TSTNM,4(R0> 

6$ 

R0,$LPADR 

«,SLPADR 

§ SCRL.c 

(R0) + 

R0,*TLAST+10 

5$ 

,$auES 

#TST1 ,$LPADR 
aSLPADR 



;IS THIS THE TEST ? 

;1F NOT, DON'T PROCESS NUM8ER 

'SAVE PC 

•POP OVER PREVIOUS SCOPE 



PREPARE TEST ADDRESS 

;G0 START TESTING. ***WARNINS!**** 

;THIS JUMP IS USED BY POWER UP ROUTINE!!! 



;fHI$ UTILITY SETS UP CSR'S,SETS UP VECTORS. 



D7"!EV: MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV 



DZVRIV,RO 

#2,R0 

RO,DZVRIS 

#2,R0 

RO.DZVTIV 

*2,R0 

RO,DZVTIS 



;PLACE THE BASE VECTOR ADDRESS IN RO 

.•CALCULATE THE RECEIVER INrERRUPT STATUS ADDR. 

;STORE IT HERE 

; CALCULATE THE TRANSMITTER INTERRUPT VECTOR 

;STORE IT SFRE 

♦•CALCULATE T«E TRANSMITTER VECTOR STATUS ADDRESS 

;STORE IT HERE 



;THIS SEGMENT SETS UP POINTERS FOR THE GIVEN DZV11. SBASE IS THE BASE ADDRESS 
;0F THE DEVICE 

MOV $BASE,RO 

MOV RO,DZVCSR 

INC RO 

MOV RO,HDZVCSR 

INC RO 

MOV RO,DZVRBUF 

MOV RO,DZVLPR 

INC RO 

MOV RO,HDZVRBUF 

MOV RO,HDZVLPR 

INC RO 

MOV RO,DZVTCR 

INC RQ 

MOV RO,HDZVTCR 

INC RO 

MOV RO,DZVMSR 

MOV RO,DZVTDR 

INC RO 

MOV RO,HPZVMSR 

MOV RO,HDZVTDR 

RTS PC 



;COPY THE ADDRESS BEING LOADED 
;XXXO 

;XXX1 

;XXX2 
;XXX2 

;XXX3 
;XXX3 

;XXX4 

;XXX5 

;XXX6 
;XXX6 

;XXX7 
;XXX7 



CVDZA-C MACY11 30GC1063) 10-AUG-81 
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11:08 PAGE 25-41 

POWER DOWN AND UP ROUTINES 



I 5 



SEQ 0060 



(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
<2) 
(2) 
(2) 
(2) 
(2; 
(2) 
(2) 
(?) 
Cc) 
(2) 
(2) 
(2) 
(2) 
(Z) 
(2) 
v?) 
(2) 
(2) 
(2) 
(2) 
(2) 
<?) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



011256 000002 



.PARMD: 
.REM 6 

.PARMD: 



2$: 



1$: 



3$: 



4$: 



5$: 



K 8 



J$ 

8$ 
9$ 
10$: 



; CONVERT DECIMAL ASCII STRING TO OCTAL 

RTI ; DECIMAL PARAMETERS UNUSED* 

; DELETED TO CONSERVE SPACE... 
;...AND REMAIN UNDER 4KW SIZE. 

(SP),R5 

<R5)+,6$ 

(R5H,7$ 

(R5)+,8$ 

(R5)+,9$ 

(R5H,10$ 

R5, <SP) 

R5 

*INBUF ? R4 

*15,<R4) 

3$ 

(R4),*'0 

3$ 

(R4),*'9 

3$ 

#'0,(R4) 

R2 

(R4)+,R2 

R2.R5 

*15,(R4) 

4$ 

R5 ;X2 

R5,R2 ;SAVE X2 

R5 ;X4 

R5 ;X8 

R2,R5 ;TIMES 10 

1$ 

2$ 



MOV 

MOV 

MOV 

MOV 

M0V8 

MOVB 

MOV 

CLR 

MOV 

CMP8 

BEQ 

CMPB 

3(.T 

CMPB 

BGT 

BIC8 

CLR 

BISB 

ADD 

CMPB 

BEQ 

ASL 

MOV 

ASL 

ASL 

ADD 

BR 

INSTER 

BR 



;;GPA 
;;GPA 
;;GPA 



;TEST TO SEE IF NUMBER IS WITHIN LIMITS 



CMP 

BHI 

CMP 

BLO 

BITS 

BNE 



R5,7$ 

3$ 

R5,6$ 

3$ 

9$,R5 

3$ 



;ST0RE NUMBER AT SPECIFIED ADDRESS 



MOV 

MOV 

ADD 

DECS 

BNE 

RTI 



8$,R4 
R5,(R4H 
M2.R5 
10$ 

5$ 




.8VTE 

.BYTE 



CVDZA-C MACY11 30GH063) 10-AUG-81 
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(2) 



11:08 PAGE 25-42 
POWER DOWN AND 



J 5 



UP ROUTINES 



SEQ 0061 



END OF .PARMD DELETE RANGE 



& 



;;GPA 



CVDZA-C NACY11 306(1063) 10-AUG-81 
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(2) 

(2) 

(2) 

(2) 

(2) 011260 012700 

(2) 011264 013701 

(2) 011270 013702 

(2) 011274 042702 

(2) 

(2) 011300 012704 

(2) 011304 013705 

(2) 011310 105037 

(2) 011314 005037 

(2) 011320 006005 

(2) 011322 103407 

(2) 011324 001422 

(2) 011326 005724 

(2) 011330 062701 

(2) 011334 062702 

(2) 011340 OC0767 

(2) 011342 006137 

(2) 011346 105237 

(2) 011352 010120 

(2) 011354 010220 

(2) 011356 013720 

(2) 011362 012420 

(2) 011364 013720 

(2) 011370 000757 

(2) 011372 012710 

(2) 011376 012737 

(2) 011404 000207 

(2) 

(2) 

<2> 

(2) 



11:08 PAGE 25-43 

POWER DOWN AflJ 



K 5 



UP ROUTINES 



SEQ 0062 



(2) 






(2) 






(2) 






(2) 






(2) 






(2) 


011406 




(2) 


011406 


000005 


(2) 


011410 


105337 


(2) 


011414 


012702 


(2) 


011420 


012703 


(2) 


011424 


005022 


(2) 


011426 


022702 


(2) 


011432 


001374 
105037 


(2) 


011434 


(2) 


011440 


012702 


(2) 


011444 


012701 


(2) 


011450 


012737 


(2) 


011456 


052711 


(2) 


011462 


052761 


(2) 


011470 


005000 



;*ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT, 

;*1F BIT? IN THE ENVIRONMENT MODE ($ENVM) BYTE JS SET, 

;*THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 



001500 
001174 
001170 
177007 

001204 
001176 
001414 
001410 



000010 
000010 

001410 
001414 



C01200 

001202 

177777 

001142 001304 



SETAPT: MOV 
MOV 
MOV 
bIC 



MOV 

MOV 

CLRB 

CLR 

ROR 

BCS 

BEQ 

TST 

ADD 

ADD 

BR 

ROL 

INCB 

MOV 

MOV 

MOV 

MOV 

MOV 

BR 

MOV 

MOV 

RTS 



1$: 

2$: 

3$: 



5$: 



#DZV. MAP, RO 
SBASE,R1 
SVECT1-R2 
* A C<770>,R2 

#$DDW0,R4 

SDEVM.R5 

DZVNUM 

SAVACTV 

R5 

3$ 

5$ 

(R4) + 

*10,R1 

#10,R2 

1$ 

SAVACTV 

DZVNUM 

R1,(R0H 

R2,(R0)+ 

$CDW1,<R0)+ 

(R4)+,(R0)+ 

$CDW2,(R0)+ 

2$ 

*-1,(R0) 

ttSWREG.SWR 

PC 



;POINT TO THE DEVICE MAP TABLE 

;BUILD DEVICE ADDRESSES IN R1 

;BUILD DEVICE VECTORS IN R2 

;STR1P AWAY OTHER INFORMATION 

POINT TO THE BEGINNING OF DEVICE PARAMETERS 

GET THE MAP OF ACTIVE DEVICES 

INITIALIZF NO. OF DEVICES IN SYSTEM 

CLEAR THE ACTIVE BIT MAP 

GET A DEVICE SELECTION BIT 

IF IT IS SELECTED, GO SET UP A MAP 

IF NO MORE ARE SELECTED, GET OUT OF SETUP 

POINT TO NEXT DEVICE DESCRIPTOR 

SET UP THE NEXT ADDRESS 

SET UP THE NEXT VECTOR GROUP 

GO SEE IF MORE DEVICES REMAIN 

SET BIT IN ACTIVE DEVICE MAP 

INCREMENT NO. OF ACTIVE DEVICES IN SYSTEM 

LOAD DEVICE ADDRESS 

LOAD THE VECTOR ADDRESS 

GET THE NUMBER OF LINES IN OPERATION 

LOAD DEVICE PARAMETERS 

LOAD DEFAULT TESTING MODE 

GO BUILD THE NEXT ADDRESS 

TERMINATE THE DEVICE MAP 

SET TO SOFTWARE APT SWITCH REGISTER 

RETURN TO PRINT STATUS TABLE 



;*ROUTINE USED TO M AUTO SIZE" THE DZV11 

;*CSR AND VECTOR. 

;*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 

;* ADDRESS RANGE (160000:163770) 

;* AND THE VECTOR MAY BE ANY WHERE IN THE 

;* FLOATING VECTOR RANGE (300:770) 







AUTO. SIZE: 








RESET 


001422 






DECB 


001500 




CSRMAP: 


MOV 


001204 






MOV 






1$: 


CLR 


001740 






CMP 
BNE 


001414 






CLRB 


001500 






MOV 


160000 
011714 






MOV 


000004 




MOV 


000040 




2$: 


BIS 


000017 


000004 




BIS 
CLR 



INIFLG 

*DZV.MAP,R2 

*$DDW0,R3 

(R2) + 

#DZV.END,R2 

1$ 

DZVNUM 

rfDZV.MAP.R2 

#160000, f$1 

#6$,a#4 

*BIT5,(R1) 

/T17,4(R1) 

RO 



INSURE A BUS INIT. 

SHOW THAT I WAS HERE 

LOAD MAP POINTER. 

POINT TO ETABLE DEVICE DESCRIPTOR WORDS 

ZERO ENTIRE MAP 

ALL DONE? 

BR IF NO 

SFT OCTAL NUM8ER OF DZV1TS TO 

;SET FOR FIRST ADDRESS TO BE TESTED 

;SET FOR NON-EXISTENT DEVICE TIME OUT 

;TRV TO SET MASTER SCAN ENABLE 

;TRV TO TRANSMIT ON ANY LINE 

;USE RO AS A COUNTER 
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(2) 


01K72 


005711 






(2) 


011474 


100403 






(2) 


011476 


005300 






(2) 


011500 


001374 






(2) 


011502 


000437 






(2) 


011504 


032761 


000017 


000004 


(?) 


011512 


001433 






(2) 


011514 


032711 


000040 




(2) 


011520 


001430 






(2) 


011522 


052711 


000020 




(2) 


011526 


000240 






(2) 


011530 


032711 


000040 




(2) 


011534 


001022 






(2) 
(2) 
(2) 


011536 


005061 


000004 




011542 


010122 






(2) 


011544 


005722 






(2) 


011546 


012722 


000017 




(2) 


011552 


012712 


017470 




(2) 


011556 


012223 






(2) 


011560 


005022 






(2) 


011562 


012712 


177777 




(2) 


011566 


105237 


001414 




(2) 


011572 


122737 


000020 


001414 


(2) 


011600 


001405 






(2) 


011602 


062701 


000010 




(2) 


011606 


022701 


164000 




(2) 


011612 


001321 






(2) 


011614 








(2) 


011614 


105737 


001414 




(2) 


011620 


001430 






(2) 


011622 


113701 


001414 




(2) 


011626 


012737 


000001 


001410 


(2) 


011634 


005301 






(2) 


011636 


001404 






(2) 


011640 


000261 






(2) 


011642 


006137 


001410 




(2) 


011646 


000772 






(2) 


011650 


013737 


001500 


001174 


(2) 


011656 


013737 


001510 


001202 


(2) 


011664 


012737 


000006 


000004 


(2) 


011672 


013737 


001410 


001176 


(2) 


011700 


000410 






(2) 


011702 


104402 


007671 




(2) 


011706 


005000 






(2) 


011710 


000000 






(2) 


011712 


000776 






(2) 


011714 


012716 


011602 




(2) 


011720 


000002 






(2) 










(2) 


011722 


012737 


000200 


000022 


(2) 


011730 


012737 
012702 


012044 


000020 


(2) 


011736 


001500 




(2) 


011742 


012700 


000300 




(2) 


011746 


012701 


000302 




(2) 


011752 


010120 







11:08 PAGE 25-44 
POWER DOWN AND 

7$: TST 
BMI 
DEC 
BNE 
BR 

8$: BIT 
BEQ 
BIT 
BEQ 
BIS 
NOP 
BIT 
BN!! 

rip 

;AT THIS POINT 
MDV 
TST 
MOV 
MOV 
MOV 
CLR 
MOV 
INC8 
CMP8 
BEQ 

3$: ADD 
CMP 
BNE 

100$: 

TSTB 
BEQ 
MOVB 
MOV 

4$: DEC 
BEQ 
SEC 
ROL 
BR 

98$: MOV 
MOV 

99$: MOV 
MOV 
BR 

5$: TYPE 
CLR 
HALT 
BR 

6$: MOV 
RTI 

VECMAP; MOV 
MOV 
MOV 
MOV 
HOV 

1$: MOV 



L 5 



UP ROUTINES 

(R1) 

8$ 

RO 

7$ 

3$ 

#17,4(R1) 

3$ 

#BIT5,(R1) 

3$ 

#20, (R1) 

#40,<R1) 
3$ 

4(R1) 

IT IS ASSUMED 
R1. (R2)+ 
(R2) + 
#17,(R2)+ 
#17470, <R2) 
(R2)+,(R3)+ 
(R2) + 
#-1,(R2) 
D2VNUM 
#20.DZVNUM 
100 J 
#10 f R1 
#16*000, R1 
2$ 

DZVNUM 
5$ 

DZVNUM, R1 
#1, SAVACTV 
R1 
98$ 

SAVACTV 

4$ 

DZCRO,$BASt 

MANT0,$CDW2 

#6,S#4 

SAVACTV, $DEVM 

VECMAP 

,MERR2 

RO 

.-2 

#3$,<SP) 



#MASK,a#22 
#4$,a#20 
#DZV.MAP,R2 
#300, RO 
#302-R1 
R1 # (M» + 



SEQ 0063 



THAT 



HAS TRANSMITTER READ* COME UP? 

IF SO, GO GET A FINAL CHECK 

REDUCE COUNT. TIME UP.' 

IF NOT, KEF.P WAITING 

ASSUME IT'S NOT A DZV11 

ARE ANY TCR BITS STILL SET? THEY SHOULD BE 

IF IT'S NOT, ASSUME IT'S NOT A DZV11 

IS MASTER SCAN EWBLE STILL SET? 

IF NOT, ASSUME IT'S NOT A DZV11 

SET DEVICE CLEAR 

DID SCANNER CLEAR 

IF NOT ASSUME IT IS NOT D2V 

GET RID OF TCR BITS 

R1 HOLDS A DZV11 CSR ADDRESS. 
STORE CSR IN CORE TABLE. 
POP OVER VECTOR STORE AREA 
SET THE DEFAULT LINE SELECTION PARAMETER 
SET THE DEFAULT PARAMETERS 
COPY PARAMETERS INTO ETABLE DESCRIPTOR 
SET THE DEFAULT MODE OF OPERATION 
TERMINATE LIST 
UPDATE DEVICE COUNTER 
ARE MAX. NO. OF DEV FOUND? 
YES DON % T LOOK FOR ANY MORE. 
UPDATE CSR POINTER ADDRESS 

8.1 IF MORE ADDRESS TO CHECK. 

WERE ANY DZVn'S FOUND /T ALL? 

ERROR AUTO SIZER FOUND NU DZV1VS IN THIS SYS 

CREATE A BIT MAP OF THE ACTIVb 
DEVICES IN THE SYSTEM 



;POINT TO THE ADDRESS OF FIRST DEVICE 

,-INDICATE TO ETABLE WHAT MODE IS BEING USED 

;RESTORE TRAP VECTOR 

;SAVE ACTIVE REGISTER 

;G0 FIND THE VECTOR NOW. 

;NOTIFY OPR THAT NO DZV1VS FOUND. 

;MAKE DATA DISPLAY ZERO 

;STOP THE SHOW 

;DIfABLE CONT. SW. 

;ENTERtD BY NON-EXISTENT TIME-OUT 

; RETURN TO MAINSTREAM 

;SET IOT TRAP PRIORITY 

;SET IOT TRAP VECTOR 

;SET SOFTWARE POINTER 

.♦FLOATING VECTORS START HERE. 

;PC OF IOT INSTR. 

;START FILLING VECTOR AREA 
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(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
v2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 



011754 
011760 
011762 
011766 
011770 
011774 
011776 
012000 
012004 
012012 
012014 

012022 
012024 
012026 
012034 
012036 
012042 
012044 
012050 
012056 
012C64 
012066 
012072 
012074 
012102 
012110 



012721 
022021 
020127 
101771 
013704 
006004 
103036 
106427 
012772 
011201 
112761 

005200 
001376 
012762 
000005 
062702 
000754 
011662 
162762 
042762 
022626 
012716 
000002 
013737 
012737 
000207 



000004 
001000 
001410 



000000 
040040 



'00000 

000017 000004 

000300 000002 

000012 3$: 

000002 4$: 

000010 000002 

000007 000002 

012036 

001502 001170 5$: 

004404 000020 



11:08 PAGE 25-45 
POWER DOWN AND 



MOV 

CMP 

CMP 

BLOS 

MOV 

ROR 

BCC 

MTPS 

MOV 

MOV 

MOVB 



M 5 



2$: 



INC 

BNE 

MOV 

RESET 

ADD 

BR 

MOV 

sue 
bjc 

P0P2SP 

MOV 

RTJ 

MOV 

MOV 

RTS 



UP ROUTINES 

#4.(R1>+ 

(R0)+ Jt (R1) + 

RM1000 

1$ 

SAVACTV,R4 

R4 

5$ 

*0 

A8IT14+BIT5 

(R2), R1 

017,4(R1) 

RO 

.-2 

0300, 2(R2) 

#12, R2 

2$ 

(SP),2(R2) 

010-2^2) 

07,2(R2) 

*3$,(SP> 



SEC 0064 



WITH ^+2; IOT 
ADD 2 TO RO +R1 

HAS* THE VECTOR AREA SEEN EXCEEDED? 
BR IF MORE TO FILL 
STORE TEMPORARILY 
BRING OUT A BIT 
BR IF ALL DONE 
-ZERO CPU PRIO 
,a<R25 ;SET TIE AND MAS SCAN 
GET CSR 

SET THE TCR BITS FOR ALL LINES 
ATTEMPT TO FORCE AN INTERRUPT 
STALL 

FOR TIME TO INTERRUPT 
NO INTERRUPT ASSUME 300 AND FIX DZV11 LATER 
INIT 

POP SOFTWARE POINTER 
KEEP GOING 
GET VECTOR ADDRESS 
POINT BACK TO THE CORRECT VECTOR 
CLEAR JUNK 

POP IOT JUNK OFF STACK 
SET FOR RETURN 



DZVC0,$VECT1 
#. SCOPE, IOTVEC 
PC 



;COPY VECTOR OF FIRST DEVICE INTO ETABLE 
; RESTORE THE SCOPE TRAP 
;ALL DONE WITH "AUTO SIZING 1 ' 
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3033 
3034 

:i 

1 
1 

3 

6 
5 

3 
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0ZV11 DEVICE DIAGNOSTICS. 



N 5 



COPYRIGHT 1977,198'. DIGITAL EQUIP. CORP. 



SEQ 0065 



303 

3036 

3037 

3038 

3040 

(5) 

(4; 

<2) 

(2) 

304 

3042 

3043 



012112 
012114 
012122 
012130 
012136 
012144 
012152 
012156 
012160 
012162 
012164 
012166 
012174 
012200 
01220? 
012204 
012206 
012210 
012216 
012222 
012224 
012226 
012230 
012232 
012240 
012244 
012246 
012250 
012252 
012254 
012262 
012266 
012270 
012272 
012274 
01.7276 
012300 



012302 
0'?^04 

'.'i?312 

012320 
012324 
012330 



000004 
012737 
012737 
012737 
012737 
012737 
013700 
011001 
000240 
005010 
000240 
012737 
013700 
011001 
000240 
005010 
000240 
012737 
013700 
011001 
000240 
005010 
000240 
012737 
013700 
011001 
000240 
005010 
000240 
012737 
005037 
104400 
011601 
022626 
104001 

104401 

000111 



000004 
012737 
012737 
013700 
01271C 
005005 



000001 
012302 
012270 
000200 
012152 
002010 



012174 
002014 



012216 
002024 



012240 
002030 



001246 
001362 
000004 
000006 
001364 



;:* 

TST1 



1$: 



001364 



2$: 



;************************ TEST 1 ****************************** 
;*THIS TEST PROVES THE BUS REPLY RESPONSE 
;*DURING A READ OR WRITf TO THE FOLLOWING ADPRESS: 
;* DZVCSR, DZVRBUF, DZVTCR, DZVMSR 
TEST 1 
********************* **************************************** 

SCOPE 

LOAD THE NUMBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

SET TRAP VECTOR 

SET PRIORITY TO HIGH(MASK INTERRUPTS) 

SET RETURN IF SW09=11 

SET ADDRESS TO TEST 

READ THE ADDRESS 

WASTE TIME 

WRITE THE ADDRESS 

WASTE TIME 

SET RETURN ADDRESS FOR SW09 

SET ADDRESS TO TEST 

READ THE ADDRESS 



001364 



3$: 



001364 



4$: 



000006 000004 
000006 



5$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

NOP 

CLR 

NOP 

MOV 

MOV 

MOV 

NOP 

CLR 

NOP 

MOV 

MOV 

MOV 

NOP 

CLR 

NOP 

MOV 

MOV 

MOV 

NOP 

CLR 

NOP 

MOV 

CLR 

ADVANCE 

MOV 

P0P2SP 

ERROR 

SC0P1 

JMP 



*1,$TSi"Nrf 
#TST2,NEXT 
*5$,4 
MASK. 6 
#1S,L0CK 

DZ :sr.ro 

(RU),R1 

(R0) 

*2$,L0CK 
DZVRBUF, RO 
<R0),R1 



(RO) 

#3$. LOCK 
DZVTCR, RO 
<R0),R1 

(RO) 

#4$. LOCK 
DZVMSR, RO 
(R0),R1 

(RO) 

#6,4 
6 



WRITE THE ADDRESS 

WASTE TIME 

SET RETURN ADDRESS FOR SW09 

SET ADDRESS TO TEST 

READ THE ADDRESS 

; WRITE THE ADDRESS 

SET RETURN ADDRESS 
SET ADDRESS TO TEST 
RlrAD FROM ADDRESS 

WRITE THE ADDRE-3 

SET TRAP CATCHER BACK TO NORML 



Ills 



Test 



.SCOPE THIS TEST 
(SP), R1 ;SAVE PC OF TRAP 

,POP TRAP OFF STACK 
1 :*N0 BUS REPLY RESPONSE. 

,SW09=1? 
(R1) ;RTI 

************************ jest 2 ****************************** 

♦THIS TEST PROVES THAT BIT DCLA" 
*CAN BE SET AND THAT T T WILL CLEAR 
*BY ITSELF 
2 



000002 


001246 


MOV 


012346 


001362 


MOV 


002010 




MOV 


000020 




MOV 
CLR 



************************************************************* 
SCOPE 



#2 t $TSTN« 
nST3,N£XT 
DZVCSR, RO 
#DCLR,(RO) 
R5 



LOAD THE NLT3ER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

SET POINTER 

SET DCLR 

SET EXPECTED TO 



. 
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B 6 



3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(3) 
(6) 
(5* 
(3, 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(D 
(1) 
<1) 
(1) 
(1) 
(1) 



012332 
012334 
012336 
012340 
012342 
012344 
012346 



012346 
012350 
012356 
012364 
012J70 
012374 
012376 
012404 
012406 
012410 
012412 
012414 
012416 
012420 
012426 
012430 
012432 
012434 
012436 
012440 
012442 
012444 
012452 
012454 
012456 
012460 
012462 
012464 
012466 
012470 
012472 
012476 
012500 
012502 
012504 
012506 
012510 
012512 
012514 



005003 
011004 
001403 
105203 
001374 
104002 



000004 
012737 
012737 
013700 
012703 
011305 
012737 
010510 
011004 
020504 
001401 
104002 
104401 
012737 
040510 
011004 
001403 
005005 
104002 
011305 
104401 
012737 
010510 
104413 
011004 
001403 
005005 
104002 
011305 
104401 
062703 
005713 
001407 
000734 
000010 
000040 
010000 
000100 
040000 



2$: 



3$: 



CLR 

MOV 

BEQ 

INCB 

BNE 

ERROR 



R3 

(R0),R4 

3$ 

R3 

2$ 

2 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

;DUAL LOOP COUNTER 

;IS DCLR CLEAR? 

;1F YES , GO TO THE NEXT TEST 

:1F NO, COUNT 1 OF 256 TICKS 

;HAS THE TIME EXPIRED? IF NO, 00 TESI BIT AGAIN 

;*DCLR FAILED TO CLEAR 



SEQ 0066 



;************************ TtST 3 ****************************** 
;*TEST TC nRUY THAT THE R/W BITS OF THE 
;*DZVCSR REGISTER CAN BE SET. THEN VERIFY THAT 
;*THESE BITS CAN BE CLEARED. AND FINALLY, VERIFY 
;*TKAT AFTER BEING SET AGAIN THEY CAN BE 
;*CLEARED BY A "DEVICE CLEAR". 
;*THE BITS TESTED ARE; MAiNT, MSENAB, SILOEN, 
:*RIE, AND TIE. 
TEsf 3 



000003 
012524 
002010 
012504 



001246 
001362 



. ;******************* ***************** A ******************** ****** 

TST3: 



012404 00136<> 



012426 001364 



1$: 
11$: 

2$: 
12$: 



012452 001364 



3$: 
13$: 



000002 



4$; 



5$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

SC0P1 

MOV 

BIC 

MOV 

BEO 

CLR 

ERROR 

MOV 

SC0P1 

MOV 

MOV 

DEVICE. 

MOV 

BEO 

CLR 

ERROR 

MOV 

SC0P1 

ADD 

TST 

BEQ 

BR 

#MAINT 

MSENAB 

#SIL0EN 

#R1E 

*TIE 



#3,$TSTNM 

#TST4,NEXT 

DZVCSR, RO 

*5$,R3 

<R3),R5 

#11$, LOCK 

R5.(R0) 

(R0).R4 

R5,R4 

2$ 

2 

*1 2$, LOCK 

R5 1 (R0) 

(R0),R4 

3$ 

R5 

2 

(R3),R5 

*13$,L0CK 
R5,(R0) 
CLR 
<R0),R4 
4$ 
R5 
2 
<R3),R5 

A2.R3 
<R$) 
6$ 
1$ 



THIS TEST 
OF THE NEXT 



TEST 



LOAD THE NUMBER OF 

POINT TO THE START 

GET BASE ADDRESS 

SET R3 TO TOP OF TABLE 

SET BIT 

SETUP FOR TIGHT SCOPE LOOP 

SET BIT IN DEVICE 

READ THE BIT FROM DEVICE 

WAS BIT SET? 

8R IF YES 

*BIT R/W FAILURE 

IS SWITCH 9 SET? 

SET FOR NEXT TIGHT SCOPE LOOP 

CLEAR THE BIT. 

READ DEVICE 

BR IF BITS WERE CLEARED. 

CLEAR FOR ERROR PRINTOUT 

*BIT FAILED TO CLEAR 

RESTORE THE BIT. 

SW09 SET? 

SET UP FOR NEXT TIGHT SCOPE 

SET THE BIT AGAIN 

ISSUE DEVICE CLEAR 

READ THE BIT. 

BR IF BIT CLEARED BY INN (DEVICE CLEAR) 

SET EXPECTED TO ZERO 

*BIT NOT CLEARED BY DEVICE CLEAR 

RESTORE BIT AGAIN 

SW09 SET? 

POP R3 

IS THIS THE END OF TABLE? 

IF YES GET OUT 

OTHERWISE TEST NEXT BIT 

CSR BIT: INTERNAL MAINTENANCE 

CSR BIT: MASTER SCAN ENABLE 

CSR BIT: SILO ENABLE 

CSR BIT: RECEIVER INTER. ENABLE 

CSR BIT: TRANS. INTER. ENABLE 
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0ZV11 DEVICE DIAGNOSTICS 



C 6 



(1 
(1 
3052 
(1 
(1 
(1 
(1 
(3 
(6 
(5 
(3 
(3 
<1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 



012516 
012520 



012524 
012526 
012534 
012542 
012546 
012552 
012560 
012562 
012564 
012566 
012570 
012572 
012574 
012576 
012604 
012606 
012610 
012612 
012614 
012616 
012620 
012622 
012626 
012630 
012632 
012634 
012636 
012640 
012642 
012644 
012646 
012650 
012652 
012654 
012656 
012662 
012666 
012672 
012674 
012676 
012700 
012702 
012704 
012706 
012712 
012714 
012720 



000000 
005037 



000004 
012737 
012737 
013700 
012703 
012737 
011305 
010510 
011004 
020504 
001401 
104002 
104401 
012737 
040510 
011004 
001403 
005005 
104002 
011305 
104401 
062703 
005713 
001412 
000747 
000001 
000002 
000004 
000010 
000400 
001000 
002000 
004000 

oooogo 

005037 
012710 
012705 
104413 
011004 
020504 
001401 
104002 

m 

001375 
012710 
000005 



001364 



6$: 



#0 
CLR 



LOCK 



COPYRIGHT 1977,1981 DIGITAL EQUIP- CORP, 

:W0 OF TABLE 

;2ER0 LOCK INDICATOR 



SEQ 0067 



;:* 



;************•*********** f l:ST 4 ****************************** 
;*THIS TESTS THAT ALL OF THE TCR BITS 
;*CAN BE: SET, CLEARED, AND CLEARED BY A DEVICE CLEAR. 
;*THIS TEST ALSO DETERMINES IF THE DTR BITS CAN 
;*8E SET, CLEARED, AND CLEARED BY A RESET. 
TEST 4 



;;*************** 1 «f*t********v***********************^**** ) V******* 



000004 

012730 
002024 
012634 
01256^ 



001246 
001362 



TST4: 



001364 1$: 
11$; 



012604 001364 



2$: 
3$: 



000002 



4$: 



5$: 



001364 

mm 

007400 



6$; 



000000 
M7777 



7$: 
8$: 



SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

SC0P1 

MOV 

BIC 

MOV 

pro 

CLh 

ERROR 

MOV 

SC0P1 

ADD 

TST 

BEQ 

BR 

*TCRO 

*TCR1 

*TCR2 

*TCR3 

#DTRO 

#DTR1 

rfDTR? 

#DTR3 

#0 

CLR 

MOV 

MOV 



*4,STSTNM 
#TST5,NEXf 
DZVTCR, RO 
#5$ t R3 

#11$, LOCK 
(R3),R5 

(RO)M 
R5,R4 
2* 
2 

#3$, LOCK: 

R5.CR0) 

(R0),R4 

4$ 

R5 

2 

<R3),R5 

#2,R3 
CR3) 
6$ 
1$ 



DEVICE. CLR 



LOCK „ 
JM,(RO) 
#007400, R5 



MOV 

CMP 

BEQ 

ERROR 

CLR 

INC 

BNE 

MOV 

RESET 



R5,R* 
7$ 
2 
R5 

to 

8$ 
0-1, (RO) 



THIS TEST 

OF THE NEXT TEST 



LOAD THE NUMBER OF 

POINT TO THE START 

SET DEVICE ADDRESS 

SET R3 POINTER TO TOP OF TABLE 

SET LOCK FOR SW09 SCOPE LOOP 

SET EXPECTED RESULTS 

SET THE BIT 

READ THE BIT FROM THE DEVICE 

DID THE BIT SET? 

BR IF YES 

*8IT FAILED TO SET. 

SW09 SET? 

SET UP FOR NEXT TIGHT SCOPE LOOP 

CLEAR THE BIT 

READ THE REGISTER 

BR If YES 

SET EXPECTED TO 

*REPORT BIT NOT CLEAR 

RESTORE R5 

SW09 SET? 

POP POINTER TO NEXT TABLE ENTRY 

END OF TABLE? 

IF YES JUMP OVER TABLE 

START TESTING NEXT BIT 

TCR BIT FOR LINE 



TCR BIT 
TCR BIT 
TCR BIT 
DTR BIT 



FOR LINE 
FOR LINE 
FOR LINE 
FOR LINE 



DTR BIT FOR LINE 
DTR BIT FOR LINE 



DTR BIT FOR LINE 

END OF TABLE 

CLEAR TIGHT SCOPE LOO* INDIC. 

SET ALL BITS IN TCR REGISTER 

SET EXPECTED 

SET DCLR BIT IN CSR 

READ REGISTER 

TCR BITS CLEARED? 

IF YES BRANCH 

TCR BITS NOT CLEARED! 

SET EXPECTED TO ZERO 

DELAY FOR ACT 

SET ALL POSSIBLE BITS 
DO BUS INIT 
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DZV11 DEVICE DIAGNOSTICS, 



D 6 



(1) 

<1) 

(1) 

(1) 

3053 

(1) 

(1) 

(1) 

(1) 

(1) 

(3) 

(6) 

(5) 

(3) 

(3) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

3054 

3055 

3056 

3057 

3058 

3060 

(5) 

(4) 

(2) 

(2) 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 



012722 011004 

012724 001401 

012726 104002 
012730 



012730 
012732 
012740 
012746 
012752 
012754 
012756 

012762 
012764 
012766 
012770 
012774 
013002 
013006 
013010 
013012 
013016 
013020 
013022 
013024 
013026 
013030 
013032 



013032 
013034 
013042 
013050 
013052 
013056 
013062 
013066 
013070 
G13072 
013074 
013076 
013100 



000004 
012737 
012737 
013700 
104413 
005005 
012710 

011004 
001401 
104002 
012705 
052777 
052710 
005002 
011004 
042704 
020504 
001404 
104414 
005202 
001370 
104002 



000004 
012737 
012737 
104413 
013700 
012710 
012705 
011004 
020405 
0C1401 
104002 
105010 
105005 



9$: 



MOV <R0),R4 
BEQ 9$ 
ERROR 2 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

;0I0 REGISTER CLEAR? 
;IF YES GET OUT 
.-REGISTER DID NOT CLEAR! 



SEQ 0068 



;***** 

;*THIS 
;*BITS 
;*AND 
;*ZERO 



;* 



******************* test 5 ****************************** 

TEST VERIFIES THAT 

"RD0NE,TRDY, BIT9, 8IT8, 
SILOAL" ARE READ ONLY AND THAT TRDY IS 

UNTIL A LINE IS SELECTED AND MSENAB IS SET. 



000005 001246 
013032 001362 
002010 



121600 



;;** 

TST5 



TEST 5 
************************************************************* 



100040 
000017 
000040 



001400 



167022 



2$: 



3$: 



4$: 



SCOPE 

MOV 

MOV 

MOV 

DEVICE 

CLR 

MOV 

MOV 

BEQ 

ERROR 

MOV 

BIS 

BIS 

CLR 

MOV 

BIC 

CMP 

BEJ 

DELAY 

INC 

BNE 

ERROR 



#5,$TSTNM 
*TST6.NEXT 
DZVCSR,RO 
CLR 
R5 
0RDONE+ 



LUAD THE NUMBER OP THIS TEST 
POINT TO THE START OF THE NEXT TEST 
SET ADDRESS TO RO 
DO A DEVICE CLEAR 
.SET EXPECTED TO 

TRDY+BIT9+BIT8+SIL0AL. (RO) 
WRITE THE BITS 
READ BACK THE BITS 
BR IP NONE ARE SET. 
*8ITS WERE SET. 
SET EXPECTED BIT 
SET TCR BITS FOR ALL LINES 
SET SCAN ENABLE 
SET COUNTER TO ZERO 
READ THE REGISTER 
MASK OUT LINE NO. 
BIT SET? 
BR IF YES 
STALL TIME 
UPDATE COUNTER 
BR IF COUNTER NOT DONE. 
*TRDY NOT SET! 



(R0),R4 

2$ 

2 

#TPDY+MSENAB,R5 

#17,8D.WCR 

MSENAB, (RO) 

R2 

(R0),R4 

*8IT9!8IT8,R4 

R5,R4 

4$ 

R2 
3$ 

2 



000006 001246 
013162 001362 

002010 
177757 
050150 



;:* 

TST6 



1$: 



;************************ JEST 6 ****************************** 
;*THIS TEST VERIFIES THAT: 
;*TIE,SILOEN,RIE.MSENAB,AND MAINT ARE THE 
;*0NLY R/W BITS IN THE DZVCSR AND THAT 
^ ;*SETTING "DCLR" IN THE CSR WILL CLEAR THESE BITS. 
TEST 6 
************************************************************* 

SCOPE 

;LOAD THE NUMBER OF THIS TEST 
;POINT TO THE START OF THE NEXT TEST 
;SET DCLR IN CSR 
;SET UP FOR ERROR MESSAGE 
#*COCLR>,(R0) :TRY TO SET ALL BITS EXCEPT DCLR 
#TIE!SIL0EN!RIE!MSENAB!MAINT,R5 ;MAKE EXPECTED 
" " ACTUAL 

CMP EXPECTED V;> ACTUAL 

YES 

*N0 

CLEAR LOW BYTE OF CSR 

CLEAR LOW BYTE OF EXPECTED DATA 



MOV *6,$TSTNM 
MOV #TST7,NEXT 
DEVICE, CLR 



MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

CLRB 

CLRB 



DZVCSR, RO 



(R0KR4 

R4,R5 

1$ 

2 

(RO) 

R5 
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COPYRIGHT 1977.1981 DIGITAL EQUIP. CORP. 



SEQ 0069 



3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

(1) 

(1) 

<1> 

(3) 

(6) 

(5) 

(3) 

(3) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

3092 

(1) 

(1) 

(1) 

(3) 

(6) 

(5) 

(3) 

(3) 

(1) 

(1) 

(1) 



013102 
013104 
013106 
013110 
013112 
013116 
013122 
013126 
013130 
013132 
013134 
013136 
013142 
013144 
013150 
013152 
013154 
013156 
013160 
013162 



013162 
013164 
013172 
013200 
013202 
013206 
013210 
013214 
013222 
013224 
013226 
013230 
013232 
013236 
013240 
013242 
013244 
013246 



013246 
013250 
013256 
013264 

013272 



011004 
020405 
001401 
104002 
012710 
105077 
012705 
011004 
020405 
001401 
104002 
012710 
005005 
052710 
000240 
011004 
020405 
001401 
104002 



000004 
012737 
012737 
104413 
013700 
011005 
042705 
012777 
011004 
020405 
001401 
104002 
005077 
011004 
020405 
001401 
104002 



000004 
12737 
12737 
104413 
013700 
011005 



8 



177757 
1 60670 

000150 



\77757 
000020 



3$: 



4$: 



000007 001246 
013246 001362 

002014 

106000 

M7777 166576 



166562 



2$: 



;:* 

TST7: 



MOV 

CMP 

BEG 

ERROR 

MOV 

CLR8 

MOV 

MOV 

CMP 

BEQ 

ERROR 

MOV 

CLR 

BIS 

NOP 

MOV 

CMP 

BEQ 

ERROR 



(R0).R4 ;READ CSR 

R4.R5 ;DOES CSR COMPARE WITH EXPEL FED? 

3$ ;BRANCH IF YES 

2 A ;lf NOT PRINT ERROR 

**C<DCLR>.(RO) ;SET ALL CSR BITS POSSIBLE 

9HDZVCSR ;CLEAR HIGH BYTE OF CSR 

#RIE!MSENAB!MAINf ,R5 ;SET EXPECTED IN R5 



<R0).R4 

R4.R5 

4$ 

2 

* A C<DCLR>,(RO) 

R5 

0DCLR,<RO> 

(R0),R4 
R4.R5 
2$ 
2 



;READ CSR REGISTER 

;DOES ACTUAL=EXPECTED 

;IF YES CONTINUE 

;If NO PRINT ERROR 

;SET ALL POSSIBLE CSR BITS 

;SET R5 TO EXPECTED RESULTS 

;DEVICE MASTER RESET 



; ACTUAL 
;CMP ACTUAL 
;YES 

;*N0 



VS EXPECTED 



000010 
013332 

002030 



001246 
00136? 



1$; 



2$: 



;:* 

T&T10 



;***************•******** jest 7 ****************************** 
;*THIS TEST PERFORMS RESET TESTING AND 
.'♦TESTING OF READ ONLY REGISTER DZVRBUF 
m ;*AND TESTING OF WRITE ONLY REGISTER DZVLPR 
TEST 7 

*'******* ********************** ****************************** 
SCOPE 

MOV #7.$TSTNM ;LOAD THE NUMBER OF THIS TEST 

MOV #TST10.NEXT ;POINT TO THE START OF THE NEXT TEST 
DEVICE. CLR ; CLEAR DZV11 

MOV DZVR8UF.R0 ;SET UP FOR ERROR MESSAGE 

MOV (R0),R5 ;COPY PRESENT CONTENTS 

BIC *DVALID!BIT11JBIT10,R5 ;CLEAR ILLEGAL BITS 

MOV #-1 f 9DZVLPR ;TRY TO WRITE ALL \ % S 

MOV (R0),R4 ; ACTUAL 

CMP R4.R5 ;CMP ACTUAL VS EXPECTED 

BEQ 1$ ;U YES. GO CONTINUE PROCESSING 

ERROR 2 ;*ERROR- BIT PATTERN NOT CORRECT 

CLR 9DZVLPR ;TRY TO WRITE ALL ZEROES 

MOV (R0),R4 ;READ REGISTER 

CMP R4.R5 ;CMP ACTUAL VS. EXPECTED 

BEQ 2$ .'BRANCH IF EQUAL 

^RROR 2 .-VALUES DID NOT COMPARE 

;************************ test 10 ****************************** 

;*TH1S TEST PERFORMS RESET TESTING AND 

.-♦TESTING OF READ ONLY REGISTER DZVMSR 
m ;MND TESTING OF WRITE ONLY REGISTER DZVTDR 
TEST 10 
************************************************************ 

SCOPE 

MOV #10,$JSTNM ;LOAD THE NUMBER OF THIS TEST 

Wy.*- *JST11,NEXT .-POINT TO THE START OF THE NEXT TEST 

DEVICE. CLR ;CLEAR DZV11 

MQV DZVMSR.RO ;SET UP FOR ERROR MESSAGE 

MOV (R0).R5 .-COPY PRESENT CONTENTS 



CVD 
CVD 
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COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 



SEQ 0070 



) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 

3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3104 
3105 
(5) 
(4) 
(2) 
(2) 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
31 1 4 
3115 
31 16 
3117 
3118 
3119 
3120 

vh 

3123 
3124 
3125 

w 



013274 
013300 
013306 
013310 
013312 
013314 
013316 
013322 
013324 
013326 
013330 
013332 



013332 

013334 

013342 

013350 

013354 

013356 

013360 

013366 

013370 

013374 

013376 

013402 

013406 

013410 

013412 

013414 

013416 

013420 

013424 

Q134J 

0134! 

0134! 

0134: 

013440 

013442 

013444 

013446 

013450 

1 3454 

013456 

0134C0 



042705 
112777 
011004 
020405 
001401 
104002 
005077 
011004 
020405 
001401 
104002 



170360 
1 77777 



166512 



166526 



1$: 



2$; 



BIC 0170360, R5 

M0V8 #-1,SDZVTDR 

MOV (RO) ,R4 

CMP R4,R$ 

BEU 1$ 

ERROR 2 

CLR 3DZVTDR ;TRY TO 

MOV (R0>,R4 

CMP R4,R5 

BEG 2$ 

ERROR 2 



; CLEAR ILLEGAL BITS 

;TRY TO WRITE ALL 1'S 

•ACTUAL 

;CMP ACTUAL VS EXPECTED 

;IF YES, GO CONTINUE PROCESSING 

;*ERROR- BIT PATTERN NOT CORRECT 

WRITE ALL ZEROES 

;READ REGISTER 

;CMP ACTUAL VS. EXPECTED 

.-BRANCH IF EQUAL 

; VALUES DID NOT COMPARE 







• • * 

• * 


TEST 11 








;;***********************+******* 


000004 




TST11 


: SCOPE 




012737 


000011 


001246 


MOV 


*11.$7STNM 


012737 
0* 5737 


013526 
001372 


001362 


MOV 
TST 


#TST12,NEXT 
MODE 


00*001 






BNE 


8$ 


10*400 






ADVANCE 




01.737 


013450 


001364 8$: 


MOV 


#10$, LOCK ; 


K4413 






DEVICE. 


CLR 


013700 


002030 




MOV 


DZVMSR,RO 


005003 






CLR 


R3 


012702 


000001 




MCV 


#1 ,R2 


130237 


001366 


If 


BITfa 


R2AJNE 


001 00 ^ 






BNE 


3$ 


005203 




2$: 


INC 


R3 


104420 






SHIFT 




000772 






BR 


1$ ; 


010204 
105737 




3$: 


MOV 


R2,R4 


001372 




TSTB 


MODE 


100406 
032703 






BMI 


5$ 


000001 




BIT 


#BIT0,R3 


001 402 
006204 
000401 
006304 






BEG 
ASR 


4$ 
R4 




4$: 


BR 
ASL 


5$ 

R4 


010405 
000305 
150405 




5$: 


MOV 


R4,R5 






SWAB 


R5 






BISB 


R4,R5 


150277 
1 04414 


166352 


10$: 


BISB 


R2,8HDZVTCR 






DELAY 




011004 






MOV 


(RO). R4 ; 


020504 






CMP 


R5,R4 



;************************ JEST 11 ****************************** 

;*VERIFY THAT SETTING 'DTA" FOR A LINE WILL 
;*8RING UP M C0 M AND "RING" FOR: 
;*THE SAME LINE IF IN EXTERNAL MODE 
:*THE STAGGERED LINE IF IN STAGGERED MODE. 
;*LINES ARE STAGGERED AS FOLLOWS: 
;*LINEO WITH LINE1; LINE2 WITH LINC-3. 
;*THJS TEST IS ONLY RUN IF AN H325,0R H329 
;*1S CONNECTED ON THE DZV UNDER TEST. 



************************************** 



LOAD THE NUMBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

TEST TO SEE IF TESTING WITH 

CONNECTOR 

IF NO, GO TO NEXT TEST 

SET FOR TIGHT SCOPE LOOP 

SET DCLR IN CSR TO ZERO DEVICE 

SET REGISTER 

ZERO LINE NUMBER 

SET POINTER 

TEST THIS LINE? 

YES 

LINE # 

GET NEXT LINE 

TE r T NEXT LINE 

SAVE BINARY BIT FOR LINE f 

RUNNING IN EXTERNAL MODE? 

IF YES SKIP STAGGERED SETUP 

IF EVEN LINE 

GO GET ODD PARTNER 

OTHERWISE GET EVEN COMPANION 

GO SETUP EXPECTED RESULTS 

FIND ODD PARTNER 

LOAD R5 FOR FXPECTED 

PLACE IN UPPfcrt BYTE 

SV FOR RING BITS 

SET DTR BIT 

DELAY FOR CABLE LAG 

MOVE RESULTS OF MSR REGISTER TO R4 

RESULTS=EXPECTED? 
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G 6 



3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

(1) 

(1) 

<1) 

(1) 

(3) 

(6) 

(5) 

(3) 

(3) 

(1) 

M) 

(1) 

(!) 

n> 

(D 

CD 
U) 

<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
n> 
d) 
(D 
(i) 
(1) 
(D 
(i) 
d) 
(D 
(D 
(1) 

3149 
3150 
3151 
3152 
3153 



013462 
013464 
013466 
013470 
013476 
013502 
013504 
013506 
013510 
013512 
013514 
013516 
013524 



013526 
013530 
013536 
013544 
013546 
013554 
013560 
013564 
013570 
013574 
013600 
013602 
013606 
013612 
013614 
013616 
013620 
013622 
013624 
013626 
013630 
013632 
013634 
013636 
013640 
013642 
013644 
013650 
013652 
013656 



001401 
104002 
104401 
012737 
140277 
104414 
011004 
001 4G2 
005005 
104002 
104401 
012737 
000731 



000004 
012737 
012737 
104413 
012737 
005037 
013700 
012705 
012702 
: 30237 
001421 
050277 
05271 C 
005004 
005710 
100404 
104414 
005204 
001373 
104003 
011004 
020405 
001*01 
104002 
104401 
104413 
0o2705 
104420 
005237 
000746 



013476 
166324 



001364 



6$: 
11$: 



013450 001364 



7$: 



BEU 

ERROR 

SC0P1 

MOV 

BICB 

DELAY 

MOV 

PEQ 

CLR 

ERROR 

SC0P1 

MOV 

BR 



6$ 
2 

*11$,L0CK 
R2,3HDZVTCR 

<R0).R4 
7$ 
R5 
2 

*10$,L0CK 
2$ 



COP v RIGHT 1977.1981 DJblTAL EQUIP. CORP. 

IF YES CONTINUE 

If NOT PRINT ERROR RESULTS 

IS SW09 SET? 

SET UP FOR NEXT TIGHT SCOPE 

CLEAR DTR BIV FOR LINE UNDER TEST 

DELAY FOR CABLE LAG 

LOAD MSP REGISTER INTO R4 

IF CO AND RING CLEARED CONTINUE 

OTHERWISE SET EXPECTED FOR ERROR 

PRINTOUT 

IS SW09 SET? 

RESET TIGHT SCOPE LOOP 

GET NEXT LINE 



SEQ 0071 



;:* 



** 



000012 
013660 

0'3602 
001374 
002010 
100040 
000001 
001366 

166216 
000040 



001246 
001362 

001364 



TST1 



1$: 

2$: 

3$: 



000400 
001374 



4*; 

5$: 
6$: 



MOV /T12.STSTNH 
MOV *TST13,NEXT 
DEVICE. CLR 



;*****w****************** jest 12 ****************************** 
;* THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 
;* IS READY TO BE LOADED, AND TKAT THE LINE SPECI- 
;* FIED IN BITS 8-9 OF D^VCJR CORRESPOND 
;* TO THE LINE SELECTED IN DZVTCR 
TE3T 12 
*^ ******************************* *** ****************** ******* 

2: SCOPE 

LOAD THE NUMBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

ISSUE A "DEVICE CLEAR" (RESET) 

SET UP FOR TIGHT SCOPE LOOP 

INITIALIZE FOR ERROR PRINTOUT 

SET POINTER 

START THE EXPECTED LINE NUMBER AT 

U^ING R2 AS A BIT POINTER, POINT TO LINE 

IS THIS LINE SELECTED? 

IF NO, SKIP THE STARTUP 

SET THE GO BIT FOR THIS LINE 

START THc SCANNER 

SET TOR DELAY 

TX READY? 

BR IF YES 

DELAY 

COUNTER 

BR IF <>0! 

*TX NOT READY! 

GET THE LINE POINTED TO BY THE SCANNER 

IS THE LINE NUMBER WHAT IT SHOULD BE? 

IF YES, GO WOM ON THE NEXT LINE 

♦LINE NUMBER DID N0 T MATCH TCR BIT 

IS SW09 SET? 

SET DCLR IN CCR;SETUP FOR NEXT LINE 

POINT TO THE NEXT EXPECTED LINE 

POINT TO THE NEXT LINE.ARE ALL LINES TEST 0? 

ADJUST r 0R ERROR PRINTOUT 

.IF NOT- GO DO THE NEXf LINE 
;*******************«**** test 13 ****************************** 

;*TEST TO TRANSMIT ONE CHAR AND 
.♦♦RECEIVE ONE CHAR ON ONE LINF 
;*AT A TIME. THE CHAR IS "252" AND 
;*ALL SELECTFO LINES WILL BE TURNED ON . 



MOV 

CLR 

MOV 

MOV 

MOV 

BITS 

BEQ 

RIS 

BIS 

CLR 

TST 

BMI 

DELAY 

INC 

BNE 

ERROR 

MOV 

CM 

GEO 

EKROR 

SC0P1 

DEVICE. CLR 

ADD *400,R5 

smi 

INC SAVDN 
8R 1* 



#2$, LOCK 
SAVLIN 
DZVCSR.RO 
*MSENAB!TRDY,R5 

#1,R2 
R2.LINE 
6$ 

R2.8DZVTCR 
#MSENAB,<RO) 
R4 
(RO) 
4$ 

R4 

3$ 

3 

(R0KR4 

R4,R$ 

5$ 

2 
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COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP, 



SEQ 0072 



31 54 
31!i5 

3156 
3157 
3159 
(5) 
(4) 
(2) 
(2) 
(1) 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3185 



1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
(1) 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 



013660 
013662 
013670 
013676 
013704 
013706 
013710 
013714 
013720 
013724 
013730 
013736 
013742 
013744 
013750 
013752 
013756 
013760 
013762 
013766 
013770 
013772 
013774 
013? 76 
014000 
014004 
014006 
014012 
0',4016 
014022 
014026 



014030 
014032 
014034 
014036 
014040 
014042 
014044 
014046 
014050 
014054 
014056 
014062 
014064 
014066 
0*4070 
01 W2 



000004 
012737 
012737 
012737 
104417 
104421 
005037 
10M V V 
01<J#02 
012701 
052777 
030237 
001467 
010277 
005005 
105777 
100001 
104020 
005777 
100404 
104414 
005205 
001372 
104003 
105737 
001041 
105237 
110177 
013705 
005737 
100006 



006205 
103402 
000261 
000401 
000241 
006105 
000305 
150105 
052705 
005003 
105777 
100404 
104414 
005203 
001372 
104004 



00001j 
014150 
014132 



001374 
001425 
000001 
000252 
000040 
001366 

166054 

166032 

166022 



001246 
001362 
001 364 



;:* 



TST 



166052 



3$: 
5$: 

6$: 



001425 

001425 
166016 
001374 
001372 



7$: 



;*THIS 
;*DATA 
;*USING 

;*WHICH 
TESt 13 
************ 

13: SCOPE 
MOV 
MOV 
MOV 

DCLASM 
LPRSFT 
CLR 
CLRB 
MOV 
MOV 
BIS 
BIT 
BEO 
MOV 
CLR 
TST8 
BPL 
ERROR 
TST 
BMI 
DELAY 
INC 
BNE 
ERROR 
TST8 
BNE 
INCB 
MOVB 
MOV 
TST 
BPL 



IS THE FIRST TIME ANY 

IS CHECKED IN THE RECEIVER. 
SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
TRANSMITS A STEADY STREAM OF CHARACTERS. 

****************** ********** ****** **************** 



100000 
165726 



8$: 
9$: 
10$t 



11$: 



#13,$TSTNM 
#TST14,NEXT 
016$, LOCK 



SAVLIN 

DONFLG 

*1,R2 

#252 R1 

MSENAB,SDZVCSR 

R2.LINE 

15$ 

R2,3DZVTCR 

R5 

9DZVCSR 

6$ 

20 

9DZVCSR 

7$ 

R5 

6$ 

3 

DONfLG 

13$ 

DONFLG 

R1.3DZVTDR 

SAVLIN, R5 

MODE 

10$ 



LOAD THE NUMBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 

SET DCLR IN CSR AND SET MAINT MODE 

LOAD LPR REGISTER FOR ALL LINES 

lNli. FOR ERROR PRINTOUT 

INN FOR TCR BIT HANDLER 

LINE POINTER 

SAVE CHARACTER TO BE TRANSMITTED 

START SCANNER 

VALID LINE ? 

NO SET UP NEXT LINE 

SET TCR BIT 

SET R5 FOR A DELAY LOOP 

IS REC DONE = ? 

IF YES, ALLOW Ti'ME FOR TRDY TO SET 

*REC DONE SHOULD = 

TRDY SET? 

IF YES BRANCH 

IF NO THEN WAIT FOR IT 

DELAY LOOP 

BRANCH BACK AND TEST AGAIN 

*TRDY FAILED TO SET! 

HAVE WE ALREADY SENT CKARAC. 

IF YES GO CLEAR TCR BIT 

IF NOT INDICATE HAVING BEEN HERE 

LOAD CHARACTER 

MAKE EXPECTED LINE # 

IS THIS TEST IN STAGGERED MODE? 

IF NOT, SKIP STAGGERED SETUP 



;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUtftfER 



ASR 

BCS 

SEC 

BR 

CLC 

ROL 

SWAB 

BISB 

BIS 

CLR 

TSTB 

BMI 

DELAY 

INr 

BNE 
ERROR 



R5 
8$ 

9$ 

R5 
R5 

R1,R5 

#DVALID,R5 

R3 

9DZVCSR 

12$ 

R3 

11$ 

4 



;GET THE LAST BIT INTO THE CARRY BIT 

;1F IT IS SET, GO CLEAR IT 

;1F 11 IS CLEAR SET IT HERE 

;SKIP THE CLEARING 

.-CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 

;GET THE NEW BIT BACK INTO R5 

;MOVE THE LINE NUMBER TO THE UPPER BYTE 

;ADD CHARACTER 

;ADD DATA VALID 

IS RDONE SET? 

IF YES GO GET CHAR. 

IF NOT THEN WAIT 

DELAY LOOP 

DELAY DONE? 

*RDONE FAILED TO SET! 
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I 6 



3196 


014074 


017704 


165714 


3197 


014100 


020405 




3198 


014102 


001722 




3199 


014104 


104006 




3200 


014106 


000720 




3201 


014110 


104401 




3202 


G14112 


105037 


001425 


3203 


014116 


005077 


165702 


3204 


014122 


005237 


001374 


3205 


014126 


104420 




3206 


Om30 


000702 




3207 








3208 








3209 








3210 


014132 


005777 


165652 


32V 


014136 


100375 




321r> 


014140 


110177 


165670 


321;: 


014144 


104401 




3214 
3215 
3216 


014146 


C00760 










321 7 








3218 








3219 








3220 








3221 








3223 








(5) 








(4) 


014150 


000004 




(2) 


0:4152 


012737 


000014 001246 


(?.) 


OKUO 


012/37 


014472 001362 


3224 


014166 


105037 


001425 


3225 


014172 


005037 


001374 


3226 


014176 


104417 




3227 








3228 


014200 


013701 


001370 


3229 


014204 


042737 


0)0000 001370 


3230 


014212 


10<421 




3231 


01*214 


010137 


001370 


3232 


014220 


012701 


000252 


3233 


014224 


013702 


001366 


3234 


014230 


010277 


165570 


3235 


014234 


052777 
005005 
005777 


000040 165546 


3216 


014242 




3237 


014244 


165540 


3238 


014250 


100404 




3239 


014252 


104414 




3240 


014254 


005205 
001372 




3241 


014256 




3242 


014260 


104003 




3243 


014262 


117705 


165524 


3244 


014266 


012703 


m 


3245 


014272 


042705 


3246 


014276 


001403 




3247 


014300 


106303 




3248 


014302 


005305 





12$: 

13$: 
15$: 



MOV 

BEQ 
ERROR 
BR 
SC0P1 

CLRB 
CLR 

INC 

SHIFT 

BR 



3DZVRBUF,R4 

R4,R5 

5$ 

6 

5$ 

DONFLG 

3DZVTCR 

SAVLIN 

3$ 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

;LOAD THE VALUE ACTUALLY RECEIVED 

; COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 

;1F YES, GO DO THE NEXT LINE 

;*N0 DATA/CONTENTS DID NOT COMPARE 

;G0 BACK AND WAIT TO CLEAR TCR BIT 

;CHECK TO SEE IF SWITCH NINE IS SET 

;SET UP FOR NEXT LINE 

; CLEAR PREVIOUS TCR BIT 

;SET LINE INDICATOR FOR NEXT LINE 

.•CALCULATE NEXT LINE 

;GET GET STARTED 



SEG 0073 



.-TIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY 



16$: 



TST 

TPL 

MOVB 

SCOPi 

BR 



aDZVCSR 

16$ 

R1,9fcZVTDR 

13$ 



;1S TRANSMITTED PEADY? 
;1F NOT, WAIT FOR IT 
;LOAD THE CHARACTER 
;LOOP AGIN J'r SW09=1 
/OTHERWISE, GO PICK UP 



THE TEST NORMALLY 



;************************ jest 14 '^****w*********************^** 

;*THI$ TEST VERIFIES THAT EACH RECEIVING LINE CAN BE 

;*DISA8LED BY SETTING RCVON (BIT12 IN THE LPR REGISTER) 

;*T0 ZERO FOR EACH LINE. 

;*fHIS TEST ALSO VERIFIES THAT THE SILO CAN BE 

;*EMPTIED BY ISSUING A DEVICE MASTER CLEAR. 
* TEST 14 
***************** ******* *************************•<************* 



TST14: 



100$: 



1$: 
2$: 



3$: 



30$: 



SCOPE 

MOV 

MOV 

CLRB 

CLR 

DCLASM 

MOV 

BIC 

LPRSET 

MOV 

MOV 

MOV 

MOV 

BIS 

CLR 

TST 

BMI 

DELAY 

INC 

BNE 

ERROR 

MOVB 

MOV 

BIC 

BEQ 

ASL8 

DEC 



#14,$TSTNM 
*TST15,NEXT 
DONFLG 
SAVLIN 



PAR.R1 

*RCVON,PAR 

R1 ,PAR 

#2$2,R1 

LINE,R2 

R2.3DZVTCR 

*MSENAB,9DZVCSR 

R5 

9DZVCSR 

3$ 

R5 
2$ 

3HDZVCSR,R5 

*1,R3 

* A C<3>,R5 

31$ 

R3 

R5 



THIS TEST 
OF THE NEXT 
FLAG 



TEST 



LOAD THE NUMBER OF 

POINT TO THE START 

CLEAA TEST CONTROL 

CLEAR LINE INDICATOR 

ISSUE A DEVICE MASTER CLEAR 

AND SET MAINT BIT IF NECESSARY 

SAVE DEFAULT PARAMETERS 

DISABLE RECEIVER IN DEFAULT PAR. 

LOAD PARAMETERS IN LPR REGISTER 

RESTORE DEFAULT PARAMETERS 

LOAD A CHARAC. INTO R1 

COPY AN IMAGE OF THE ACTIVE LINES 

SET TCR BITS FOR ALL ACTIVE LINES 

SET MASTER SCAN ENABLE 

INIT DELAY COUNTER 

IS TftANS READY SET? 

BRANCH IF YES 

WAJT FOR TRDY TO SET 

INCREMENT DELAY COUNTER 

RETURN TO CHECK TRDY 

TRDY FAILED TO SET! 

MOVE LINE NO. TO R5 

INIT TCR POINTER 

ISOLATE LINE NO. 

IF LINE BRANCH 

SHIFT R3 POINTER TO NEXT LINE 

DECREMENT LINE NO. 
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J 6 



3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
327? 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3304 
(5) 



014304 
014306 
014310 
014312 
014316 
014320 

014324 
014326 
014330 
014334 
014336 
014340 
014344 
014346 
014352 
014354 
014356 
014360 
014362 
014364 
014366 
01 4 572 
014374 
014376 
014402 
014406 
014410 
014412 
014416 
014422 

014424 
014426 
014430 
014432 
014434 
014436 
014440 
014442 
014446 
014450 
014454 
014456 
014462 
014464 
014470 
014472 



001375 
030302 
001007 
140377 
001351 
105737 

001037 
000404 
110177 
040302 
000741 
005077 
005005 
105777 
100002 
104020 
000403 
104414 
005205 
001370 
017704 
100007 
000304 
042704 
010437 
104017 
000766 
105237 
013701 
000673 

005005 
104414 
005205 
001375 
104413 
000240 
000240 
105777 
100003 
005037 
104020 
017704 
100003 
005037 
104017 



31$: 



165506 
001425 

165500 

165460 
165436 



165422 



177774 
001374 



001425 
001370 



4$: 

5$: 

6$: 

7$: 
8$« 



9$: 



10$: 
11$: 



165342 
001374 
165332 
001374 



12$: 



13$: 



GNE 30$ 

BIT R3,R2 

BNE 4$ 

BICB R3,9DZVTCR 

BNE 1$ 

TSTB DONFLG 

BNE 10$ 

BR 5$ 

MOVB R1,9DZVTDR 

BIC R3,R2 

BR 1$ 

CLR 9DZVTCR 

CLR R5 

TSTB 3DZVCSR 

BPL 7$ 

ERROR 20 

BR 8$ 

DELAY 

INC R5 

BNE 6$ 

MOV 9DZVRBUF,R4 

BPL 9$ 

SWAB R4 

BIC * A C<3>,R4 

MOV R4, SAVLIN 

ERROR 17 

5R RS 

INC8 DONFlb 

MOV PAR-R1 

BR 100$ 

CLR R5 

DELAY 

INC R5 

BNE 11$ 

DFVICE.CLR 

NOP 

NOP 

TST8 9DZVCSR 

BPL 12$ 

CLR SAVLIN 

ERROR 20 

MOV SDZVRBUF,R4 

B°L 13$ 

CLR SAVLIN 

ERRCR 17 



CO'YRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

WHEN R5=0, R3 POINTS TO LINE TCR 

HAS CHARACTER BEEN SENT? 

BRANCH IF NO 

IF YES THEN CLEAR TCR BIT 

IF ALL CHARAC. SENT DROP THROUGH 

IF NO MORE ACTIVE IS TH/S SECOND 

TIME HERE? 

IF YES SKIP TO SECOND PART OF TEST 

IF FIRST TIME HERE GO ZERO TCR BITS 

LOAD CHAR. INTO BUFFER 

INDICATE CHARAC. SENT ON THIS LINE 

GO BACK AND WAIT FOR TRDY TO SET 

CLEAR OUT TCR BITS 

INIT DELAY COUNTER 

IS RECEIV. DONE SET? 

IF NOT THEN WAIT TO SEE IF IT WILL 

REC DONE SHOULD NOT SETi 

GO FIND WHICH LINE RECEIVED 

STALL FOR RECEIVER 

INCREMENT DELAY COUNTER 

IF NOT DONE GO RE TEST REC DONE 

READ REC. BUFFER 

IS DVALID SET? 

IF YES GET LINE NO. 

ISOLATE LINE NO. 

SET UP LINE NO. FOR ERROR REPORT 

DVALID SHOULD NOT BE SET 

GO CHECK FOR ANY OTHER CHAR. IN SILO 

INDICATE THAT FIRST PART OF TEST IS DONE 

SAVE DEFAUI T LINE PARAM. 

NOW GO RELOAD LFR REGISTER TO 

TURN RECEIVERS ON 

ZERO DELAY COUNTER 

WAIT FOR ALL CHARAC. TO BE RECEIVED 

INCREASE DELAY COUNT 

CONT. DELAY IF NOT FINISHED 

ISSUE A MASTEil CLEAR 



NOW IS RECEIV, DONE SET? 

BRANCH IF NO 

CLEAR LINE NO FOR ERROR REPORT 

REC. DONE SHOULD NOT BF SET! 

READ REC. BUFFER 

IS DVALID SET? IT SHOULDN'T BE 

DEVICE. CLR DID NOT ZERO SILO 

PRINT OUT THE ERROR. (LINE NO, IS IRRELEVANT) 



SEQ 0074 



;************************ jest 15 ****************************** 
;* THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
^CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
;*'ONE LINE AT A TIME BASED UPON VALID LINES) 
;*THJS IS THE FIRST TIME THAT ALL DATA IS CHECKED 
;:* TEST 15 * 

;;***************** ********************************************** 
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K 6 



(4) 


014472 


000004 




(2) 


014474 


012737 


000015 001246 


(2) 


014502 


012737 


014762 00136? 


(1) 


014510 


012737 


0(4576 001364 


3305 


014516 


104417 




3306 


014520 


104421 




3307 


014522 


005037 


001374 


3308 


014526 


104422 




3309 


014530 


105037 


001425 


3310 


014534 


012702 


000001 


3311 


014540 


052777 


000040 165242 


3312 


014546 


030237 


001566 


3313 


014552 


001477 




3314 


014554 


010277 


165244 


3315 


014560 


013700 


001374 


3316 


014564 


006300 




3317 


014566 


105777 


165216 


3318 


014572 


100001 




3319 


014574 


104020 




3320 


014576 


005005 




3321 


014600 


005777 


165204 


3322 


014604 


100404 




3323 


014606 


104414 




3324 


014610 


005205 




3325 


014612 


001372 




3326 


014614 


104003 




3327 


014616 


105737 


001425 


3328 


014622 


001047 




3329 


014624 


116077 


001426 165202 


3330 


014632 


013705 


001374 


3331 


014636 


005737 


001372 


(1) 
H) 

( 1 * 


014642 


100006 




(1) 

(1) 


014644 


006205 




(1) 


014646 


103402 




(1) 


014650 


000261 




(1) 


014652 


000401 




(1) 


014654 


000241 




(1) 


014656 


006105 




3332 


014660 


000305 




3333 


014662 


156005 


001426 


3334 


014666 
014672 


052705 


100000 


3335 


005003 




3336 


0.4674 


105777 


165110 


3337 


014700 


100404 




3338 


014702 


104414 




3339 


014704 


005203 




3340 


014706 


001372 




3341 


014710 


104004 




3342 


014712 


017704 


165076 


3343 


014716 


020405 




3344 


014720 


001401 




3345 


014722 


104006 




3346 


014724 


104401 





TST15: 



3$: 



4$: 



5$: 
6S: 



7*: 



8$: 
9$: 

10$: 



11$: 



12$: 
13$: 



SCOPE 

MOV 

MOV 

MOV 

DCLASM 

LPRSET 

CLR 

BUFSET 

CLRB 

MOV 

BIS 

BIT 

BEQ 

MOV 

MOV 

ASL 

TSTB 

BPL 

ERROR 

CLR 

TST 

BMI 

DELAY 

INC 

BNE 

ERROR 

TSTB 

BNE 

M0V8 

MOV 

TST 

BPL 



*15,$TSTNM 
*TST16,NEXT 
05$, LOCK 



SAVLIN 



D0NFL6 

01. R2 

#MSENAB,3DZVCSR 

R2AJNE 

15$ 

R2,3DZVTCR 

SAVLJN,RO 

RO 

9DZVCSR 

5$ 

20 

R5 

9DZVCSR 

7$ 

R5 

6$ 

3 

D0NFL6 

14$ 

TD0(R0),3DZVTDR 

SAVLIN, R5 

MODE 

10$ 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. SEG 0075 



LOAD THE NUMBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 

SET DCLR AND SET MNTFLG 

LOAD LPR REGISTER FOR ALL LINES 

WIT FOR FIRST LINE 

ZERO BUFFER AREA 

ZERO TCR BIT HANDLER FLAG 

LINE POINTER 

START SCAHNER 

VALID LINE ? 

NO SET UP NEXT LINE 

SET TCR BIT 

ADJUST BUFFER POINTER 

OFFSET 

IS RFC DONE - ? 

IF YES, ALLOW TIME FOR TRDY TO SET 

*REC DONE SHOULD = 

USE R5 AS TIMER WAITING FOR TRDY TO SET 

IS THE TRANSMITTER READY? 

IF SO, GO TRANSMIT A CHARACTER 

WAIT A LITTLE BIT 

UP THE LOCAL COUNTER. TIME EXCEEDED? 

IF NOT, GO TRY AGAIN 

*TRDY FAILED TO SET! 

AlL CHARAC. TRANS.? 

IF YES GO ZERO TCR BIT 

LOAD CHARACTER 

MAKE EXPECTED LINE * 

IS THIS TEST IN STAGGERED MODE? 

IF NOT, SKIP STAGGERED SETUP 



;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 



ASR 

8C5 

SEC 

BR 

CLC 

ROL 

SWAB 

81 SB 

BIS 

CLR 

TSTB 

BMI 

DELAY 

INC 

BNE 

ERROR 

MOV 

CMP 

BEQ 

ERROR 

SC0P1 



R5 
8$ 

9$ 

R5 

R5 

TD0(R0),R5 

*DVALID,R5 

R3 

3DZVCSR 

12$ 

R3 
11$ 

aiZVRBUF,R4 

R4.R5 

13$ 

6 



GET THE LAST BIT xNTO THE CARRY BIT 

IF IT IS SET, GO CLEAR IT 

IF IT IS CLEAR SET IT HERE 

SKIP THt CLEAJNG 

CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 

GET THE NEW BIT BACK INTO R5 

MOVE THE LINE NUM8ER TO THE UPPER BYTE 

ADD CHARACTER 

ADD DATA VALID 

;REC DONE? 

;IF YES GO CHECK CHAR. 

;1F NOT WAIT FOR REC. 

;DELAY LOOP TIMEP 

;DELAY FINISHED? 

;*RDONE FAILED TO SET! 

.-LOAD THE VALUE ACTUALLY RECEIVED 

/COMPARE ACTUAL VS EXPECTED. ARE THE/ THE SAME? 

;IF YES, GO DO THE NEXT LINE 

;*N0 DATA/CONTENTS DID NOT COMPARE 

;CHECK TO SEE IF SWITCH NINE IS SET 
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L 6 



3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

5355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3365 

(5) 

(4) 

(2) 

(2) 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 

3376 

3377 

3378 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 



014726 
014732 
014734 
014740 
014742 
014746 
014752 
014756 
014760 



014762 
014764 
014772 
015000 
015006 
015012 
015016 
015022 
015024 
015026 
015032 
015040 
015042 
015046 
015054 
015060 
015064 



015066 
015070 
015072 
015074 
015076 
015100 
015102 
015104 
015110 
015112 
015116 
015122 
015124 
015126 
015130 
015132 
015134 



105260 
001315 
105237 
000712 
005077 
105037 
005237 
104420 
000672 



00000*' 
012737 
01273" 
012737 
005037 
012702 
030237 
001454 
104417 
013701 
052737 
104421 
010137 
052777 
013705 
005737 
100006 



006205 
103402 
000261 
000401 
000241 
006105 
000305 
052705 
005003 
110277 
105777 
100404 
104414 
005203 
001372 
104004 
017704 



001426 

001425 

165056 
001425 
001 374 



000016 
015164 
015110 
001374 
000001 
001366 



001370 
000300 

001370 
000040 
001374 
00137? 



130000 

164720 
164666 



14$; 
15$; 



:* 



INCB 

BNE 

INC r 4 

BR 

CLR 

CLR3 

INC 

SHIFT 

BR 



****** 

;*TH1S 

;* 1) 
;* 2) 
;* 3) 

;*ONLY 
TEST 16 



TDO(RO) 

4$ 

DONFLG 

4$ 

9DZVTCR 

DONFLG 

SAVLIN 

3$ 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 

; INCREMENT BINARY PA1 TERN FOR THIS LINE 

;G0 'ROUND AGAIN FOR NEXT CHARACTER 

/INDICATE aLl CHAR. SENT 

;BRANCH TO CLL'AR TCR BIT 

;CLEAR TCR REGISTER 

;INJT FOR NEXT LINE 

;INC EXPECTED LINE 

;SHIFT THE LINE POINTER. ARE WE ALL DONE? 

:1F NO, GO AROUND AGAIN FOR NEXT LINE 



SEQ 0076 



******************* TEST 16 ****************************** 

TEST WILL PROVE THAT: 
THE TRANSMITTER "BREAK BIT M WORKS 
THE RECEIVER CAN FLAG "FRAMING ERRORS" 
TKE RECEIVER CAN FLAG "PARITY ERRORS" 

ONE LJNE AT A TIME WILL BE EXERCISED. 



**************** *********************************************** 



001246 
001362 
001364 



TST16: 



1$: 



001370 
164734 



SCOPE 

MOV 

MOV 

MOV 

CLR 

MOV 

BIT 

BEQ 

DCLASM 

MOV 

BIS 

LPRSET 

MOV 

BIS 

MOV 

TST 

BPL 



*16,$TSTNM 

#TST17,NEXT 

#5$. LOCK 

SAVLIN 

*1,R2 

R2.LINE 

9$ 



LOAD THE NUMBER OF THIS TEST 

POINT TO THE START OF THE NEXT TEST 

SET FOR LOOP 

JNI1 LINE INDIC. FOR ERROR PRINTOUT 

LINE POINTER 

VALID LINE? 

IF NOT SET FOR NEXT LINE 
.SET DCLR IN CSR AND SET MNTFLG 
PAR.R1 ; PICK UP PARAMETERS 
#ODDPAS!PARJTY,PAR ;FORCE ODD PARITY 

;LOAD LPR REGISTER 
R1.PAR ;RESET PAR TO ORIGINAL VALUE 
JMSENAB.3DZVCSR ;START SCANNER 
SAVLIN, R5 ;MAKE EXPECTED DATA 
MODE ;IS THIS TEST IN STAGGERED MODE? 

4$ ;1F NOT, SKIP STAGGERED SETUP 



;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 



2$: 
3$: 
4$: 

5$: 

6$: 



164654 



7$: 



ASR 

BCS 

SEC 

BR 

CLC 

ROL 

SWAB 

BIS 

CLR 

M0V8 

TSTB 

BMI 

DELAY 

INC 

BNE 

ERROR 

MOV 



R5 
2$ 

3$ 

R5 
R5 



GET THE LAST BIT INTO THE CARRY BIT 

IF IT IS SET, GO CLEAR IT 

IF IT IS CLEAR SET IT HERS 

SKIP THE CLEARING 

CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 

GET THE NEW BIT BACK INTO R5 

PUT LINE Nl*«ER IN UPPER BYTE 



rfDVALID!PARER!FRAERR,R5 ;ADD EXPECTED 

R3 

R2,3HDZVTDR 

9DZVCSR 

7$ 



R3 
6$ 
4 

3DZVR8UF,R4 



INIT DELAY ACCUMULATOR 

SET BREAK BIT 

RECEIVER DONE? 

BRANCH IF YES 

WAIT FOR REC DONE TO aET 

INC DELAY LOOP 

DELAY FINISHED? 

*RDONE FAILED TO SET! 

ACTUAL 
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N 6 



1) 
1) 
2) 
2) 
2) 
2) 
2) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 

3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3409 
(5) 
(4) 
(2) 
(1) 
3410 
3411 
3412 
3413 
3414 
3415 



015376 
015402 
01^402 
015410 
015416 
015424 
01543? 
015440 
015446 
015450 
015454 
015456 
01546C 
015462 
015464 
015466 
015470 
015472 
015474 
015500 
015502 
015504 
015506 
015510 
015512 
015516 
015520 
015522 
015524 
015532 
015536 
015540 
015544 
015550 
015552 
015556 



015560 
015562 
015570 
015576 
015600 
015602 
015606 
015614 
015622 



106427 000000 



012777 
012777 
012777 
012777 
052777 
113777 
005005 
105777 
100003 
000240 
000240 
000404 
104414 
005205 
001367 
104004 
105737 

00H11 
104011 
000407 
104010 
000404 
105737 
001001 
104012 
022626 
042777 
105737 
001005 
105237 
106427 
000635 
106427 
104413 



000004 
012737 
012737 
104417 
104<21 
0050.V 
012777 
0)2777 
012777 



015506 
015512 
000200 
000200 
000140 
001426 

164334 



001425 



001425 



040100 
001425 

001425 
000000 

000200 



164434 
164422 
164416 
164414 
164350 
164366 



10$: 
9$: 



164256 



13$: 

14$: 

18$: 

11$: 

12$: 



16$: 
15$: 



17$: 



MTPS #CLEAR 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP, 
; ALLOW INTERRUPTS 



EQ 0078 



MOV 

MOV 

MOV 

MOV 

BIS 

M0V8 

CLR 

TST8 

BPL 

NOP 

NOP 

BR 

DELAY 

INC 

BNE 

ERROR 

TST8 

BEQ 

ERROR 

BR 

ERROR 

BR 

TST8 

BNE 

ERROR 

P0P2SP 

BIC 

TST8 

RNE 

INCB 

MTPS 

BR 

MTPS 

DEVICE. 



*11$,8DZVTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
#12$,SDZVRI\' ;SET UP THE ^CEIVER INTERRUPT VECTOR 
#MASK,aDZVRlS ;SE) THE INTfW.UPi' VECTOR STATUS 
MASK.SDZVTIS ;SET TRANSMIIVFR INTERRUPT PRIORITY 
*RIE!MSENAB,&DZVCSR ;ENA8LE THfc DEVICE 
TD0,3)DZVTDR ;LOAD BUFFER WITH ANY CHAR. 
R5 ;1N1T DELAY ACCUMULATOR 

SDZVCSR ;REC. DONE? 
14$ ;1F NOT DELAY 

;WAIT FOR INTERRUPT 



18$ 

R5 

13$ 

4 

DONFLG 

15$ 

11 

15$ 

10 

16$ 

DONFLG 

16$ 

12 

*RIE!TIE,9DZVCSR 
DONFLG 
17$ 

DONFLG 
rfCLEAR 
1$ 

MASK 
CLfc 



DELAY FOR INTERRUPT 

INCREMENT DELAY COUNTER 

DELAY FINISHED? 

*N0 RX DONE! WOT SET) 

PROCESSOR ALLOWING INTERRUPTS? 

IF NOT DON'T PRINT ERRCR 

RECEIVER FAILED TO INTERRUPT 

CONTINUE TEST 

TRANSMITTER SHOULD NOT INTER. 

CONT TEST 

PROCESSOR ALLOWING INTERRUPTS? 

IF YES DON'T PRINT ERROR 

*RcCEIVER SHOULD NOT INTERRUPT 

POP FOR FAKE RTI 

;CLEAR INTERRUPTS 
SECOND TIME THROUGH? 
IF YES LEAVE TEST 
IF NO INDICATE SECOND TfcST PASS 
ALLOW INTERRUPTS 
RESTART TEST 
DON'T ALLOW INTERRUPTS 
CLEAR DEVICE, LEAVE TEST 



000020 


001246 


MOV 


004170 


001362 


MOV 

DCLASM 

LPRSET 


501374. 




CLR 


01601* 


164^24 


MOV 


00020-; 


H4220 


MOV 


01610'' 


164214 


MOV 



;************+*********** TEST 20 ******************************* 
;*THIS TES1 VERIFIES THAT THE RECEIVER WILL 
;*INTERRUPF biVFORE THE TRANSMITTER EVEN 
;*THOUGH THE TRANSMITTF* WAS ENABLED 
;*FIRST. SET PS TO HIoH (MASK INTERRUPTS); 
;*GET RDONE AND TRDY TO SET; 
;*SET TX IE AND RX IE; 

;*CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 
;:* TES* 20 

;;********** ***************************************************** 

TST20: SCOPE 

LOAD THh NUMBER OF THIS TESl 
POINT TO THE CND-OF-PASS HANDLER 
SCT DCLR IN CSR AND rtNTKLG 
LOAD PAR REGISTER FOR ALL LINES 
INIT. ERROR LINE IND1C. 
SETUP INTERRUPT STUFF 



*20,STSTNM 
#$EOP,NEXT 



SAVLIN 

#8$/JDZVRIV 

#MASK,aD7VRIS 

#12$,3D7VTIV 



J 



CVDZA-C MACYi 
CV0ZAC.P11 



LUG (1063) 10-AUG-81 

10-AUG-81 1C:55 



11 2O8 PAGE 25-60 

0ZV11 DEVICE DIAGNOSTICS. 



6 7 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CjRP, 



SiiQ 00/9 



3416 

3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



015630 
015636 
015644 
015650 
0156^4 
015656 
015662 
015666 
015672 
015674 
015676 
015702 
015704 
015706 
015710 
015712 
015716 
015720 
015722 
015724 
015726 
015730 
015734 
015736 
015742 
015744 
015746 
015750 
015752 
015754 
015760 
015762 



01576* 
015772 
016000 
016004 
016006 
016010 
016012 
016014 



016016 
016022 
016024 
016026 
016032 
016036 



016040 
016042 
016044 



012777 
052777 
012702 
030237 
001515 
1C6427 
1102/7 
005777 
100001 
104017 
105777 
100001 
104020 
005005 
005004 
005777 
100404 
104414 
005204 
001372 
104003 
105077 
005004 
105777 
100404 
104414 
005204 
001372 
104004 
005777 
100401 
104003 



052777 
052777 
106427 
000240 
000240 
104007 
104011 
000435 



017704 
010403 
000303 
042703 
005737 
100006 



006203 
103402 
000261 



000200 X'7 } 
00004C 164U4 
000001 
001366 

000200 

164136 
164122 



164106 



164072 



164100 
164046 



163772 



M7770 

C01372 



3$: 
4$: 



5$: 



99$: 



100$: 
6$: 



164030 



040000 164016 
000100 164010 
000000 



7$ 



8$: 



MOV 

BIS 

MOV 

BIT 

BEQ 

MTPS 

MOVB 

TST 

BPL 

ERROR 

TST8 

BPL 

ERROR 

CLR 

CLR 

TST 

BMI 

DELAY 

INC 

BNE 

ERROR 

CLRB 

CLR 

TSTB 

BMI 

DELAY 

INC 

BNE 

ERROR 

TST 

BMI 



#MASK,9DZVTIS 

#MSENAB,9DZVCSR 

*1,R2 

R2AINE 

14$ 

MASK 

R2,3DZVTCR 

8DZVRBUF 

♦ +4 

17 

3DZVCSR 

.+4 

20 

R5 

R4 

3DZVCSR 

100$ 

R4 

99$ 

3 

3DZVTDR 

R4 

aDZVCSR 

7$ 

R4 

6$ 

4 

9DZVCSR 

.+4 

3 



;LINE POINTER 
; VALID LINE ? 
;1F NOT GO TO 



NEXT LINE 



;SET TCR BIT 

; VALID DATA? 

:1T BETTER NOT BE SET 

;DATA VALID SHOULD NOT BE SET 

.•RECEIVER DONE ? 

.•RECEIVER DONE BIT SHOULD NOT BE SET 



;WMT FOR TRDY 
;BR IF READY 
;STALL TIME 



;TRDY 
;SEND 



FAILED 
A ZERO 



TO SET 
CHARACTER 



;1S RDONE SET? 



;*RDONF FAILED TO 
; TRANS DONE BIT = 



;YES 

*N0 



SET! 
1 ? 



ERROR 

;NOW THAT BOTH TRANSMITTiR 'AND 

;SET INTERRUPT ENABLES 



TRANS DONE FAILED 
RECEIVER DONE BIT 



TO 
-1 



SET 



BIS 

BIS 

MTPS 

NOP 

NOP 

ERROR 

ERROR 

BR 



#TJE, 8DZVCSR 
#RIE,3DZVCSR 
0CLEAR 



7 

11 

14$ 



;ALLOW THE INTERRUPTS 



.-•TRANSMITTER FAILED TO INTERRUPT 
;*RECEIVER FAILED TO INTERRUPT 
;GET OUT 



RECEIVER INTERRUPT ROUTINE 



ftov 3DZVRBUF, R4 

MOV R4,R3 

SWAB R3 

BIC # A C<7>,R3 

TST MODE 

BPL 11$ 



;ACTUmL 



STRIP JUNK 

IS THIS TEST IN STAGGERED MODE? 

IF NOT, SKIP STAGGERED SETUP 



;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 



ASR 
BCS 
SEC 



R3 

9$ 



GET THE LAST BIT INTO THE CARRY BIT 
IF IT IS SET, 60 CLEAR IT 
IF IT IS CLEAR SET IT HERE 



CVDZA-C MACY11 306(1063) 10-AUG-81 
CVDZAC.P11 10-AUG-81 10:55 



(1) 
(1) 
(1) 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 



016046 
016050 
016052 
016054 
016060 
016062 
016064 
016070 
016072 
016074 
016076 
016102 



016106 
016110 
016114 
016116 



000401 
000241 
006103 
020337 
001401 
104015 
042704 
120504 
001401 
104005 
040277 
000401 



016104 104011 



022626 
005237 
104420 
000137 



001374 
177400 

163722 



001374 
015650 



11:08 PAGE 25-61 


C 


DZV11 


DEVICE DIAGNOSTICS. C 




BR 


10$ 


9$: 


CLC 




10$: 


ROL 


R3 


11$: 


CMP 


R3.SAVLIN 
.+4 




BEQ 




ERROR 


15 




BIC 


rc<377>,R4 




CMP8 


R5 f R4 
.+4 




BEQ 




ERROR 


5 




BIC 


R2.9DZVTCR 
IS* 




BR 




♦•TRANSMITTER INTERRUPT 


12$: 


ERROR 


11 


13$: 


P0P2SP 




14$; 


INC 
SHIFT 


SAVLIN 




JMP 


3$ 



COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 



SEQ 0080 



(INVERSION 
BACK INTO R3 

LINE 



OF LINE PARITY) 



;SK1P THE CLEARING 
; CLEAR THE CARRY BIT 
;GET THE NEW BIT 
;1S THIS A VALID 
'YES 

♦♦INVALID LINE 
; STRIP JUNK 
;DATA COMPARE ? 
*YES 

;*DATA DOES NOT COMPARE 
; CLEAR TCR BIT 
;G0 GE T OUT OF INTERRUPT 
SVC ROUTINE 
;THE RECEIVER INTERRUPT FAILED 
;T0 OVERRIDE THE TRANSMITTER 
/REMOVE THE INTERRUPT VECTOR FROM THE STACK 
/ADJUST FOR NEXT LINE 
;GET THE NEXT POINTER. IF DONE, ADVANCE 
/OTHERWISE GO DO THE NEXT LINE 



MODE 



- 



CVDZA-C MACY11 30GC1063) 10-AUG-81 
CVDZACP11 10-AUG-81 10:55 



11:08 PAGE 26 
DZV11 DEVICE 



D 7 

DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP, 



SEQ 0081 



3482 
3483 

3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 



016122 
016124 
016126 

016130 
016132 
016134 

016136 
016140 
016142 

016144 
016146 
016150 

016152 
016154 
016156 

016160 
016162 
016164 

016166 
016170 
016172 

016174 
016176 
016200 

016202 
016204 
016206 

016210 
016212 
016214 

016216 
016220 
016222 

016224 
016226 
016230 

016232 
016234 
016236 

016240 
016242 
016244 



000000 
000000 
000000 

016270 
017106 
017226 

016343 
017132 
017240 

016371 
017165 
017256 

016430 
017165 
017256 

016457 
017177 
017264 

016506 
017177 
017264 

016545 
017165 
017256 

016606 
017165 
017256 

016650 
017165 
017256 

016706 
017165 
017256 

000000 
000000 
000000 

000000 
000000 
000000 

016745 
000000 
000000 



; ERROR TABLE 
ERRTAB: ; ERROR 



EMI ; ERROR 

DH1 

DT1 

EM2 ; ERROR 2 

DH2 

DT2 

EM3 .-ERROR 3 

DH3 
DT3 

EM4 ; ERROR 4 

DH3 

DT3 

EM5 ; ERROR 5 

DH4 

DT4 

EM6 ; ERROR 6 

DH4 

DT4 

EH7 ; ERROR 7 

DH3 
DT3 

EM10 ; ERROR 10 

DH3 

DT3 

EM11 ;ERROR 11 

DH3 

DT3 

EMI 2 .-ERROR 12 

DH3 

DT3 









EM15 .-ERROR 15 







CVDZA-C MACY11 30G(1063) 10-AUG-81 11:08 PAGE 26-1 

CVDZAC.P11 10-AUG-81 10:55 DZV11 DEVICE DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. SEQ 0082 

3538 

3539 016246 000000 

35 40 016250 000000 

3541 016252 000000 
3542 

3543 016254 017007 EM17 ; ERROR 17 

3544 016256 017165 DH3 

3545 016260 017256 DT3 
3546 

3547 016262 017045 EM20 

3548 016264 017165 DH3 

3549 016266 017256 DT3 



CVD2A-C MACY11 30GC1063) 10-AUG-81 
CVDZAC.P11 10-AUG-81 10:55 



11:08 PAGE 27 
0ZV11 DEVICE 



F 7 

DIAGNOSTICS. COPYRIGHT 1977,1981 DIGITAL EQUIP. CORP. 



SEQ 0083 



3551 
3555 
3556 
3557 
3550 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 



016270 
016343 
016371 
016430 
01645? 
016506 
016545 
016606 
016650 
016706 
016745 
017007 
017045 

017106 
017132 
017165 
017177 



017226 
017230 
017232 
017234 
017236 

017240 
017242 
017244 
017246 
017250 
017252 
017254 

017256 
017260 
017262 

017264 
017266 
017270 
017272 
017274 
017276 
017300 



8 



17302 
.17304 
017306 
017310 
017312 



047200 
?00 
200 

051200 

J.™ 
042200 

.200 

052600 

051200 

052600 

200 

200 

200 

052200 

042600 

200 

200 



000002 
006 

001330 
006 

001326 

000003 
006 

001340 
006 

001336 
006 

001326 

000001 

003 

001374 

000003 
006 

001340 
006 

001336 
003 

001374 



002450 
OH 560 
001120 
000750 
000660 



020117 
042522 
051124 
041505 
040504 
053132 
0S1124 
042516 
041505 
042516 
041501 
040504 
042522 

040522 
050130 
044514 
054105 



003 
001 

004 
001 
001 

001 

004 
001 
001 



052502 
044507 
047101 
044505 
040524 
030461 
047101 
050130 
044505 
050130 
044524 
040524 
042503 

020120 
041505 
042516 
042520 



EMI 

EM2 

EM3 

EM4 

EM5 

EM6 

EM7 

EM10 

EM11 

EM12 

EM15 

EM17 

EM20 

DH1 
DH2 
DH3 
DH4 



.EVEN 
DTI: 



DT2: 



DT3: 



DT4: 



DLYTBL: 



; ERROR MESSAGES 

.ASCIZ <200>/N0 BUS REPLY RESPONSE FROM DZV11 REGISTER/ 

.ASCIZ <200>?REGISTER R/W FAILURE? 

.ASCIZ <200>/TRANSMIT READY <TRDY) NOT SET/ 

.ASCIZ <200>/RECEIVER DONE NOT SET/ 

.ASCIZ <200>/DATA COMPARISON ERROR/ 

.ASCIZ <200>/DZV11 ^RECEIVER BUFFER* ERROR/ 

.ASCIZ <200>/TRANSMITTER FAILED TO INTERRUPT/ 

.ASCIZ <200>/UNEXPECTED TRANSMITTER INTERRUPT/ 

.ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ 

.ASCIZ <200>/UNEXPECTED RECEIVER INTERRUPT/ 

.ASCIZ <200>/ACTION DETECTED ON INVALID LINE,/ 

.ASCIZ <200>/DATA VALID SHOULD NOT BE SET/ 

.ASCIZ <200>/RECEIVER DONE SHOULD NOT BE SIT/ 

.ASCIZ <200>/TRAP PC DZV11 REG/ 

.ASCII <200>/EXPECTED FOUND REGISTER/ 

.ASCIZ <200>/LINE NO./ 

.ASCIZ <200>/EXPECTED FOUND LINE/ 



:DATA TABLES FOR ERROR MESSAGES 
.BYTE 



$REG1 
.BYTE 
SREGO 

3 

.BYTE 
$REG5 
.BYTE 
$REG4 
.BYTE 
$REGO 

1 

.BYTE 

SAVLIN 

3 

.BYTE 

$REG5 

.BYTE 

$RfG4 

.BYTE 

SAVLIN 



2450 

1560 

1120 

750 

660 



6,3 
6,1 

6,4 
6,1 

6,1 

3,1 

6,4 
6,1 
3,1 

; TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 



;TIME 
;TIME 
;TIME 
;TIME 
;TIME 



FOR 
FOR 
FOR 
FOR 
FOR 



8 

110 
134 
150 



BAUD 
BAUD 
BAUD 
BAUD 
BAUD 



B 1 
C 1 



D 
E 



F 1 

G 1 

H 1 

1 1 

J 1 

K 1 

L 1 

M 1 

N 1 

B 2 

C 2 



D 
E 

F 
G 

H 
I 

J 
K 

L 

n 

N 
B 

c 



F 
G 
H 
1 
J 
K 
L 

n 

N 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
H 
N 
B 
C 
D 
E 
F 
G 
H 
I 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
1 



D 3 

E 3 



3 
3 
3 
3 
3 
3 
3 
3 
3 

4 

4 

H 

4 

4 

A 

4 
4 



06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

0G(10t3> 

0G(t063) 

06(10*3) 

0Gi10<3) 

06(100.!) 

06(106^ 

0G(1063 

06(1063/ 

06(1063) 

06(1063) 

0G( 106.3) 

03(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 

06(1063) 



10-AU6-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
1 0-AU6-81 
10-AU6-81 
10-AU6-81 
10-AU6-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AU6-81 
10-AU6-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
i(MUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AU6-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AUG-81 
10-AU6-81 



1-66 
08 



08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

oe 

08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
W 



GPA 

6PA 

GPA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

6PA 

GPA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 
PA 

PA 
PA 
PA 

PA 
PA 
PA 
PA 
PA 
PA 



J 


5 


06(1063) 1 


K 


5 


06(1063) 1 


L 


5 


06(1063) 1 


M 


5 


0G(1063) 1 


N 


5 


06(1063) 1 


B 


6 


06(1063) 1 


C 


6 


06(1063) 1 


D 


6 


06(1063) 1 


E 


6 


06(1063) 1 


F 


6 


06(1063) 1 


6 


6 


06(1063) 1 


H 


6 


06(1063) 1 


I 


6 


06(1063) 1 


J 


6 


06(1063) 1 


K 


6 


06(1063) 1 


i 


6 


06(1063) 1 


M 


6 


06(1063) 1 


N 


6 


06(1063) 1 


B 


7 


06(1063) 1 
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